let n, x = stdin.ReadLine().Split() |> fun z -> int z.[0], int z.[1]
stdin.ReadLine().Split() |> Array.map int |> Array.fold (fun s y -> (y + s.Head) :: s) [0] |> List.filter ((>=) x) |> List.length |> printfn "%d"