(defvar N)
(defvar L)
(defvar level)
(setf level (make-array 7 :initial-element 0))
(setq N (read-line))
(setq L (read-from-string (concatenate 'string "(" (read-line) ")")))

(loop for i in L do
  (incf (aref level i))
)

;(print level )
(defvar m)
(defvar mlev)
(setq m 0)
(defvar mlev)
(loop for i from 1 to 6 do
 (if (<= m (aref level i)) (progn (setq m (aref level i)) (setq mlev i)))
)
(format t "~d~%" mlev)