LLGolf Hole 5

doukaku.org
反射的に投稿してしまった。

(do((a 1)(e(read)))((< e(incf a(expt 10(floor(log(print a)10)))))))

expt floor log なんとかならないかなと思ったけど思いつかない。