(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 (make-hash-table))
(loop for i in A do
    ;(print i)
    (if (gethash i rensou)
        (setf (gethash i rensou) (+ (gethash i rensou) 1))
        (setf (gethash i rensou) 1)
    )
)
;(print rensou)
(defvar cnt)
(setq cnt 0)
    (with-hash-table-iterator (next rensou)
  (loop
    (multiple-value-bind (more key val) (next)
      (unless more (return))
      (if (= val 1) (incf cnt)))))
      ;(format t "Key: ~a, Value: ~a~%" key val))))

(format t "~d~%" cnt)