Module Module1

    Sub Main()

        Dim N As Integer = Console.ReadLine()
        Dim tmp As String() = Split(Console.ReadLine(), " ")

        Dim oData(N) As Integer

        For i = 0 To N - 2
            oData(tmp(i)) += 1
        Next

        For i As Integer = 1 To N
            Console.WriteLine(oData(i))
        Next

    End Sub

End Module
