(dotimes(i 123)(format(alpha-char-p(set'c(int-char i)))"~C:~3D
"c(count c'#.(loop repeat 607 collect(read-char)))))