let solve str = let lstr = String.length str in let rec solve' idx curSum maxSum = let nextMaxSum = if curSum > maxSum then curSum else maxSum in if idx >= lstr then nextMaxSum else let nextCurSum = if str.[idx] = 'o' then (curSum + 1) else 0 in solve' (idx + 1) nextCurSum nextMaxSum in solve' 0 0 0 let () = let s1 = read_line () and s2 = read_line () in solve (s1 ^ s2) |> string_of_int |> print_endline