let input f = stdin.ReadLine() |> f
let inputs f = stdin.ReadLine().Split() |> Array.map f

let N = input int
let ans = Array.create N 0
for x in inputs int do
    ans.[x - 1] <- ans.[x - 1] + 1

for i in 0..N-1 do 
    printfn "%d" ans.[i]