program abc163a
  implicit none
  integer n, i, a(200005)
  integer :: ct(200005) = 0
  read *, n
  read *, (a(i), i=2, n)
  do i=2, n
    ct(a(i)) = ct(a(i)) + 1
  end do
  do i=1, n
    print '(i0)', ct(i)
  end do
end program abc163a
