import Data.List (group)

main :: IO ()
main = interact $ show . maximum . map length . filter (\xs -> head xs == 'o') . group . concat . words