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