main::IO()
main = do
  ws <-getLine
  let exe [] _=[]
      exe (x:xs) ws = (length .filter (==x) $ws)
                      :exe xs ws

  print . minimum $ (exe "tr" ws) ++ (map (`div` 2).exe "e" $ws)