(defun main ()
  (let* ((n 6)
         (a (make-array n))
         (b (make-array n)))
    ;; 配列Aの入力
    (loop for i from 1 below n do
          (setf (aref a i) (read)))
    ;; 配列Bの入力
    (loop for i from 1 below n do
          (setf (aref b i) (read)))
    ;; 配列Bに基づく配列Aの出力
    (loop for i from 1 below n do
          (format t "~a" (aref a (aref b i)))
          (when (< i (1- n))
            (format t " ")))
    (format t "~%")))

(main)