(do((x(read)(- x(expt 10(floor(log(1- x)10))))))((format t"~[~;1
0~:;~D
~]"x x)))