(dotimes(i 123)(format(both-case-p(set'c(int-char i)))"~A:~3@A "c(count c'#.(loop while(listen)collect(read-char)))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page