sub ruler { my $n = shift; join"", " ", map(" "x(9-/../).$_, 1..$n/10), "\n", map(/.$/g, 0..$n), "\n" }