(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((n (read))
         (a (read))
         (j 1))
    (format t "~d~%" j)
    (dotimes (i (1- n))
      (incf j (if (> (read) a) 1 0))
      (format t "~d~%" j))))

(main)