Scanf.scanf "%s %s" (fun c d ->
    let s = c ^ d in
    let rec loop i cur mx =
        if i = 14 then mx else
            if s.[i] = 'o' then loop (i + 1) (cur + 1) (max mx (cur + 1)) else
                                loop (i + 1) 0 mx
    in
    loop 0 0 0 |> Printf.printf "%d\n"
)