import Data.List

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

game  :: [Int] -> [Int]
game (n:ns) = reverse $ map ((+1) . head . findIndices (==n) . reverse . sort) . filter (not.null) . tails $ reverse (n:ns)