(#2=doseq'#1=(read-line)(#2#(l #3=#.#1#)(#2#(r #3#)(format t"(~A~A~A)"l .'r))(terpri)))