(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))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page