import Data.Array

main = do
  li <-getLine
  let n = read li
  li <- getLine
  let as = map read $ words li
  let ans = compute n as
  mapM_ print ans

compute :: Int -> [Int] -> [Int]
compute n as = elems $ accumArray (+) 0 (1,n) [(a,1)|a <- as]
