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