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

count = countM 0

countM :: Int -> String -> Int
countM a [] = a
countM a ('m':i:n:xs) = countM (a+1) xs
countM a (_:xs) = countM a xs