program hello
implicit none


integer N,i,j,a
integer,dimension(200000)::A = 0
integer,dimension(200000)::cont = 0

read*,N
read*,A

!do j = 1,N
! cont(j) = 0
!end do



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

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

end program Hello
