import Data.List (group)
--["o", "xxxxx","oo","xxxxx","o"]

main :: IO ()
main = interact $ show . f . concat . words


f :: String -> Int
f xs
    | null ys   = 0
    | otherwise = maximum $ map length ys
    where
        ys = filter (\zs -> head zs == 'o') . group $ xs