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