{-# LANGUAGE BangPatterns #-}

solve :: [Int] -> Int
solve = f 0  0
  where
    f !m !n []     = n
    f !m !n (x:xs) = if x >= m then f x (n + 1) xs else f m n xs
    
main = print . solve . map read . words =<< (getLine >> getLine)
