import Data.List import Control.Monad main = print . (\x -> if x == [] then 0 else maximum x) . map length . filter (elem 'o') . group . concat =<< replicateM 2 getLine