open List 
(* 1行読み込みする関数 *)
(* i_inp : 1行読み込んで整数に変換, f_inp, s_inpもある *)
let inp : unit -> string = fun () -> 
	input_line stdin
 
(* 1行読み込んで、空白で分割する関数 *)
let inp_list : unit -> string list = fun () ->
	Str.split (Str.regexp " ") (inp ())
let i_inp_list : unit -> int list = fun () ->
	map (fun x -> int_of_string x) (inp_list ())
      
(* 関数本体 *)
let () =
  let [n; x] = i_inp_list () in
  let l = i_inp_list () in
  let rec loop total list n =
    match list with
      [] -> n
    | y :: rest ->
       let total' = y + total in
       if total' > x then n
       else loop total' rest (n + 1)
  in
  print_int (loop 0 l 1);
  print_newline ()
