let rec q()=let a=Array.init 10(fun i->Scanf.scanf"%d,"(fun i->i*2000))in Scanf.scanf"%d,%d
"(fun v w->let t=(Array.fold_left(+)0a)/(v+w) in let rec($)i z=if t*v<=z+a.(i)then q(Printf.printf"%d\n"(i+1))else(i+1)$(z+a.(i))in 0$0);;try q()with _->()