import Data.List.Split

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