(setf a(read-from-string(format()"(~A)"#1=(read-line)))b 0 _(loop(format t"~@[~*~A~:*
~]~A
"(find(incf b)a)#1#)))