--No.203 ゴールデン・ウィーク(1) import Data.List main = do s <- getLine t <- getLine let st = s ++ t print $ maximum $ map f $ group st f s | head s == 'o' = length s | otherwise = 0