for n=2to 36do let rec($)i?(a=i mod n+48)b=i>0&i/n$a+a/58*7;output_byte stdout b=()in 257$10done
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page