(loop(loop for / =(if(char<(set'c(read-char))#\a)(not /)/)do(format t"~:[~(~A~)~;~:(~A~)~]"/ c)until(eq c #\ )))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page