257 by ksk

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