program main
    implicit none
    integer n
    integer, allocatable, dimension(:) :: b, c
    integer i
    read(*,*) n
    allocate(b(n-1))
    allocate(c(n))
    read(*,*) b

    do i = 1, n
        c(i) = 0
    end do

    do i = 1, n-1
        c(b(i)) = c(b(i)) + 1
    end do

    do i = 1, n
        write(*,*) c(i)
    end do

end program