      PROGRAM management
      IMPLICIT NONE
      integer(16) :: n
      integer(16) :: a(2:2*(10**5)),ans(2:2*(10**5))
      integer(16) :: i
      
      read*,n
      read*,a(2:n)
      
      ans(:) = 0
      do i = 1,n
        ans(a(i)) = ans(a(i)) + 1
      end do
      
      do i = 1,n
        print*,ans(i)
      end do
      
      
      END PROGRAM