(do'(c #2=(read-char()()/)/)((do'(i 0(1+ i))((/=(-(#1=char-int(setf y / / #2#))(#1#c)1)i)(format t"~C~[~;~C~:;-~C~]"c i y))))(peek-char))