(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#))