#!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$/}