count :: Eq a => [a] -> a -> Integer
count xs c = sum $ map (\x -> if x==c then 1 else 0) xs

main = do
	[t,r,e] <- getLine >>= return . (\xs -> map (count xs) "tre")
	print$minimum[t,r,e`div`2]