import Data.List import Data.Bool import Control.Monad main = print =<< foldr (\x y -> if x > y then x else y) 0 . map length . filter (any (=='o')) . group . concat <$> replicateM 2 getLine