(let ((n (read))
    (a (make-array 14 :initial-element 0))
    (cmin 0)
    (cmax 0))

    (loop for _ below n do
        (incf (aref a (floor (/ (read) 400))))
    )

    (loop for i below 8 do
        (if (not (= (aref a i) 0))
            (incf cmin)
        )
    )
    (setq cmax cmin)
    (loop for i from 8 to 14 do
        (incf cmax (aref a i))
    )

    (if (= cmin 0)
        (format t "1")
        (format t "~D" cmin)
    )
    (format t " ~D~%" cmax)
)