let () =
  let rec read () =
    try let line = read_line ()
                   |> Str.split (Str.regexp ",")
                   |> List.map float_of_string
                   |> Array.of_list
        in
        let sum = Array.fold_left (+.) 0. (Array.sub line 0 10) in
        let d = sum*.line.(10)/.(line.(10) +. line.(11)) in
        let rec find s i =
          if s >= d then i
          else find (s +. line.(i)) (i+1)
        in Printf.printf "%d\n" (find 0. 0);read ()
    with End_of_file -> ()
  in read ()
;;