open System type Sol() = member this.Solve() = let ss = stdin.ReadLine() + stdin.ReadLine(); let mutable cnt = 0 let mutable max = 0 let N = Seq.length ss for i = 0 to (N-1) do if ss.[i] = 'o' then ( cnt <- cnt + 1; max <- if cnt > max then cnt else max ) else ( cnt <- 0 ) printfn "%d" max let mySol = new Sol() mySol.Solve()