import Control.Monad (replicateM) solve :: Int -> Bool -> String -> [Int] solve i _ [] = [i] solve i w (c:cs) | c == 'o' && w == False = solve 1 True cs | c == 'o' && w == True = solve (i + 1) True cs | c == 'x' && w == True = [i] ++ solve 0 False cs | otherwise = solve 0 False cs main = replicateM 2 getLine >>= print . maximum . solve 0 False . concat