module Main where
 
import Control.Monad (replicateM)
 
main :: IO ()
main = do
  n <- readLn
  a <- replicateM n readLn
  mapM_ print $ solve a
 
solve :: [Int] -> [Int]
solve a = scanl step 1 $ tail a
  where
  step acc x | x > head a = succ acc
             | otherwise  = acc