program hello
implicit none



integer N,i,j,B
integer,allocatable,dimension(:)::A
integer,allocatable,dimension(:)::cont

read*,N
allocate(A(N-1),cont(N-1))
read*,A

cont(1:N) = 0


do i = 1,N
B = A(i)
do j = 1,N
	if (B == j) then 
    	cont(j) = cont(j) +1 
    endif
end do
end do

do i = 1,N
	write(*,*)cont(i)
end do

end program Hello
