import Control.Monad
import Data.Maybe
import qualified Data.ByteString.Char8 as BS
import Data.Array.Unboxed
import Data.Bits
import Data.List
import qualified  Data.ByteString as B


bsToInt :: BS.ByteString -> Int
bsToInt = fst . fromJust . BS.readInt

bsToIntList :: BS.ByteString -> [Int]
bsToIntList = map bsToInt . BS.words


count as k = length . filter (==k) $ as

main :: IO ()
main = do 
    n <- bsToInt <$> BS.getLine
    as <- bsToIntList <$> BS.getLine
    let res = (foldr ((:) . count as) [] [1..n])
    mapM_ print res
