main :: IO ()
main = print . length . filter (== 'm') =<< getLine