import Data.Char

f :: String -> Int
f xs 
    | null xs = 0
    | otherwise = if take 3 xs == "min" then 1 + f (drop 3 xs) else f $ tail xs

main :: IO ()
main = print . f . filter (/='-') =<< getLine