(defun collector (function lst); listの各要素を数えるコレクタ 10^7くらいまで
  (if lst
      (let* ((ans '())
             (mem (cons (car lst) 1)))
        (mapcar (lambda (k)
                  (if (funcall function k (car mem))
                      (incf (cdr mem))
                      (progn (push mem ans)
                             (setf mem (cons k 1))))) (cdr lst))
        (push mem ans)
        ans)
      '()))

(let* ((n (read))
       (lst (sort (loop :repeat n :collect (read)) #'<))
       (over3200 0)
       (ln (count-if (lambda (x) (<= 0 x))
                     (collector #'= (mapcar (lambda (x) (if (<= 3200 x)
                                                            (progn (incf over3200) -1)
                                                            (floor x 400))) lst)) :key #'car)))
  (if (and (= ln 0) (not (= over3200 0)))
      (incf ln))
  (format t "~A ~A" ln (+ ln over3200)))
