(do((a #0=(read-char t())(if(=(1-(#1=char-int c))(#1#b))a(or #3=(format t"~A~[~;~A~:;-~A~]"a(-(#1#b)(#1#a))b)c)))(b #0#c))((not(set'c #0#))#3#))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page