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