(dotimes'1001(print(do((r 0(+(*(expt 10 b)(mod\(inc! b)))r))(\ . '(div\ b))(b 1))((<\ 1)r))))