import Data.List (group)

maximum2 :: [Int] -> Int
maximum2 [] = 0
maximum2 xs = maximum xs

main :: IO ()
main = putStrLn . show . maximum2 . map length . filter (elem 'o') . group . concat . lines =<< getContents