   program abc163c
      implicit none
      integer::n
      integer,allocatable,dimension(:)::a,ans
      integer::i

         read *, n
         allocate(a(2:n))
         allocate(ans(n))
         read *, a(2:n)

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

         do i=1,n
            print *,ans(i)
         end do

   end program abc163c