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