import Control.Applicative

main :: IO ()
main = getLine >>= print . solve

solve :: String -> Int
solve n =
  let count = countLetters n
  in minimum [ count 't', count 'r', count 'e' `div` 2]

countLetters :: String -> Char -> Int
countLetters str c = length $ filter (== c) str