main :: IO ()
main = getLine >>= print . length . shorten

shorten :: String -> String
shorten x = [ a | a <- x, a == 'm' ]