import qualified Data.Vector as V

incElem :: V.Vector Int -> Int -> V.Vector Int
incElem vec n = V.update vec $ V.singleton (n - 1, 1 + (vec V.! (n - 1)))


solve :: Int -> [Int] -> V.Vector Int
solve n (a:as) = incElem (solve n as) a
solve n [] = V.replicate n 0

main :: IO ()
main = do
	nStr <- getLine
	input <- getLine
	V.mapM_ (putStrLn) $ V.map (show) . solve (read nStr) . map (read) $ words input
