import Control.Monad
import Data.List

main = do
   n <- read <$> getLine
   a <- getIntegerList
   mapM_ print $ map (\x-> length $ filter (==x) a) [1..n]



--------------------------------------------
getIntList        = map (read :: String -> Int) . words <$> getLine
getIntegerList    = map (read :: String -> Integer) . words <$> getLine
getIntegerListN m = map (read :: String -> Integer) <$> replicateM m getLine
