import Data.List (group)

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