character(10**6)::S
integer::cntT=0,cntR=0,cntE=0
read*,S
do i=1,Len_trim(S)
    if(S(i:i)=="t")cntT=cntT+1
    if(S(i:i)=="r")cntR=cntR+1
    if(S(i:i)=="e")cntE=cntE+1
end do
print"(I0)",min(cntT,cntR,cntE/2)
end