; 前からループをして 1 単語ずつ比較する
(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((n (read))
         (sn (loop repeat n collect (read)))
         (tn (loop repeat n collect (read))))
    (loop for i below n
          for a in sn
          for b in tn
          while (eql a b)
          finally (princ (1+ i))
                  (terpri)
                  (princ (string-downcase a))
                  (terpri)
                  (princ (string-downcase b))
                  (terpri))))
(main)