(defvar N)
(defvar A)
(defvar temp)
(setq N (parse-integer (read-line)))
(setq A (read-from-string (concatenate 'string "(" (read-line) ")")))

(defvar rensou)
(setq rensou NIL)
(loop for i in A do
    (if (assoc i rensou)
        (setf (cdr (assoc i rensou)) (+ (cdr (assoc i rensou)) 1))
        (push (cons i 1) rensou)
    )
)
;(print rensou)
(defvar cnt)
(setq cnt 0)
(loop for i in rensou do
    (if (= (cdr i) 1) (incf cnt)))
(format t "~d~%" cnt)