(defvar temp)
(setq temp (read-from-string (concatenate 'string "(" (read-line) ")")))
(defparameter N (nth 0 temp))
(defparameter M (nth 1 temp))
(defparameter A    (read-from-string (concatenate 'string "(" (read-line) ")")))

(defparameter C (make-array (+ N 1)))
(loop for i from 1 to N do
 	(setf (aref C i) i)
)
;(print C)

(loop for i in A do
 	(setq temp (aref C i))
	(loop for j from i downto 2 do
		(setf (aref C j) (aref C (- j 1))) 
	)
	(setf (aref C 1) temp)
	;(print C)
)
	 	
(format t "~d~%" (aref C 1))