program y3020
    implicit none
    integer(8)::i,y=0,e=0,a=0,h=0,c=0
    character(100000)::S
    read*,S
    do i=1,len_trim(S)
        if(S(i:i)=="Y")y=y+1
        if(S(i:i)=="E")e=e+1
        if(S(i:i)=="A")a=a+1
        if(S(i:i)=="H")h=h+1
        if(S(i:i)=="!")c=c+1
    end do
    print*,y,e,a,h,c
end program y3020