program abc163c
   implicit none
   integer :: N, i, j, count
   integer, allocatable :: A(:), numOfBuka(:)


   read(*,*) N
   allocate(A(N), numOfBuka(N))
   read(*,*) A(2:N)

   
   do i = 1, N
      count = 0
      do j = 1, N
         if (A(j)==i) then
            count = count + 1
         end if
      end do
      numOfBuka(i) = count
   enddo

   do i = 1, N
      print *, numOfBuka(i)
   end do

end program abc163c
