(do'(n(read)(- n(expt 10(floor(log n 11)))))((format t"~D "n)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page