(do'(n(read)(- n(expt 10(floor(log n 11)))))((format t"~D
"n)))