for i=2to 36do let rec($)p?(q=p mod i+48)l=p>0&p/i$q/58*7+q;output_byte stdout l=()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