
Module Module1

    Sub main()

        Dim user1 = Console.ReadLine()
        Dim user2 As List(Of String) = New List(Of String)(Split(Console.ReadLine(), " "))
        Dim shains As New List(Of Long)(Array.ConvertAll(user2.ToArray, Function(i As String) CLng(i)))
        Dim bukaes(shains.Count) As Long

        For Each myShine In shains
            bukaes(myShine - 1) += 1
        Next

        For Each myBuka In bukaes
            Console.WriteLine(myBuka)
        Next
    End Sub
end module