;;; read n data from stdin
(define (read-list n)
  (define (loop lis n)
    (if (zero? n)
	(reverse lis)
	(input-list (cons (read) lis) (- n 1))))
  (loop '() n))

;;; simple function for answer problem
(define (answer o)
  (format #t "~A~%" o))

(define (ocean-view l)
  (define (loop l top n)
    (if (null? l)
	n
	(if (<= top (car l))
	    (loop (cdr l) (car l) (+ n 1))
	    (loop (cdr l) top n))))
  (loop (cdr l) (car l) 1))

(define result
  (let* ((N (read))
	 (A (read-list N)))
    (if (= N 1)
	1
	(ocean-view A))))

(answer result)
