import Data.List

main = getContents >>= putStrLn . unlines . map show . game . map read . tail . words

game :: [Int] -> [Int]
game (n:ns) = scanl (\acc x -> if x>n then acc+1 else acc) 1 ns