sub ruler { printf$".'%10s'x($l=(9+pop)/10)."$/0".1234567890x$l.$/,1..$l; }