(let ((n (read))
    (a (make-array 13))
    (other 0)
    (ans 0))

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

    (loop for i below 13 do
        (if (<= i 7)
            (if (>= (aref a i) 1)
                (incf ans)
            )
            (incf other (aref a i))
        )
    )

    (if (= ans 0) (decf other))
    (if (<= ans 1)
        (format t "1")
        (format t "~D" ans)
    )

    (incf ans other)
    (if (>= ans 8)
        (format t " 8~%")
        (format t " ~D~%" ans)
    )
)