program main
   implicit none
   integer n,i
   integer ,ALLOCATABLE :: a(:), ans(:)
   read(*,*) n
   allocate (a(n),ans(n))
   read(*,*)a(2:n)
   ans=0
   do i=1,n
      ans(a(i))=ans(a(i))+1
   enddo
   do i=1,n
      write(*,*) ans(i)
   enddo
end program main