open System
let C() = Console.ReadLine()
let N = (C>>int)()
let A = C().Split() |> Array.map int
let t = 
    Array.fold (fun acc x -> 
        match Map.tryFind x acc with Some(v) -> Map.add x (v + 1) acc | None -> Map.add x 1 acc 
    ) Map.empty A
for i in 1..N do 
    match Map.tryFind i t with 
    | Some x -> x 
    | None -> 0 
    |> Console.WriteLine
