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