main::IO()
main = do
  ws1 <-getLine
  ws2 <-getLine
  let f1 [] = [0]
      f1 xs = a : (f1 . dropWhile (=='x') . drop a $xs)
         where a =length .takeWhile (=='o') $xs
  print . maximum . f1 . dropWhile (=='x') $ ws1++ws2