(defun main (&rest argv) (declare (ignorable argv)) (let* ((n (read)) (ans "")) (dotimes (_ n) (setf ans (concatenate 'string ans (read-line)))) (princ ans) (terpri))) (main)