(loop(loop for / =(if(char<(set'c(read-char))#\a)(not /)/)do(format t"~:[~(~A~)~;~:(~A~)~]"/ c)until(eq c #\
)))