{-# LANGUAGE Strict #-}
import qualified Data.Array.Unboxed    as A
import qualified Data.ByteString.Char8 as B
import           Data.List             (unfoldr)


main :: IO ()
main = do
  n <- readLn
  as <- readIntsLn
  putStr . unlines . map show $ solve n as

solve :: Int -> [Int] -> [Int]
solve n as = A.elems xs
  where xs = A.accumArray (+) 0 (1, n) [(a, 1) | a <- as]:: A.UArray Int Int

readIntsLn :: IO [Int]
readIntsLn = unfoldr (B.readInt . B.dropWhile (== ' ')) <$> B.getLine
