program main
  implicit none

  integer :: n, i, j, s
  integer, allocatable :: a(:), b(:)

  read *, n
  allocate(a(2:n), b(n))
  read *, a
  b = 0

  do i = 2, n
     b(a(i)) = b(a(i)) + 1
  end do

  do i = 1, n
     print *, b(i)
  end do
  
  stop
end program main
