sub ruler { my$r=($_[0]+9)/10;" @{[map{sprintf'%9s' ,$_}1..$r]}\n0".1234567890x$r."\n" }