(while(print(do((r 0(+(*(expt 10 b)(mod x(inc! b)))r))(x(read)(div x b))(b 1))((< x 1)r))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page