print//?map$".((@b=(0..9,A..Z))[$_*$'/$a]||$").$b[$_*$'%$a],@a:0,$/for@a=1..($a=<>)-1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page