--No.203 ゴールデン・ウィーク(1)
import Data.List.Split

main = do
    s <- getLine
    t <- getLine
    let st = s ++ t
    print $ maximum $ map length $ wordsBy (== 'x') st