program main
  character*100000::S
  integer::ic(89)
  integer::i,c
  data ic/89*0/
  read *,S
  do i=1,LEN_TRIM(S)
     c=ICHAR(S(i:i))
     ic(c) = ic(c) + 1
  end do
  print '(i0,4(1xi0))',ic(89),ic(69),ic(65),ic(72),ic(33)
end program main