; reduce #'+ => sum
; loop repeat n collect (read) => n 個の数を 1 つのリストとして読み込む
(defun main ()
  (let* ((n (read))
         (real-answer (reduce #'+ (loop repeat n collect (read))))
         (yuki-answer (read)))
    (princ (- real-answer yuki-answer))
    (terpri)))
(main)