(do((x(read)(- x(expt 10(floor(log(1- x)10))))))((format t"~[~;1 0~:;~D ~]"x x)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page