import Control.Monad (replicateM)

main :: IO ()
main = do
  n <- readLn
  as@(a:_) <- replicateM n readLn :: IO [Int]

  mapM_ print $ tail $ scanl (\acc x -> if x > a then acc+1 else acc) 1 as