(dotimes(i 123)(format(both-case-p(set'c(int-char i)))"~A:~3@A
"c(count c'#.(loop while(listen)collect(read-char)))))