(defun f()(labels((z(n &aux r)(loop while(> n 0)do(multiple-value-setq(n r)(floor n 10))thereis(= r 0)))(i(n)(loop for i from 1 to n unless(z i)collect i))(s(n &aux r)(loop while(> n 0)do(multiple-value-setq(n r)(floor n 10))sum r))(r(x y)(<(s x)(s y))))(format t "~100{~A~%~}"(stable-sort(i 111111)#'r))))(compile 'f)(f)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).