program test
implicit none
integer(8) :: i,j,k,n,ans(300000)=0,a(300000)=0

read(*,*) n

read(*,*) (a(i),i=2,n)

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

do i = 1,n
  write(*,*) ans(i)
enddo

end program