program main
integer :: n
integer,allocatable :: a(:),cnt(:)

read(*,*)n
allocate(a(n),cnt(n))
read(*,*)a(1:n-1)
cnt = 0
do i = 1,n
cnt(a(i)) =  cnt(a(i)) + 1
end do
do i = 1,n
write(*,*)cnt(i)
end do
end program main