#!perl -n sub f{my $x=pop;f($==$x/$b),print+(0..9,a..z)[$x%$b]if$x}for$b(2..36){f($_);print$/}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page