uses crt;
var a:array[1..100] of integer;
n,d,i,m,s:integer;
begin
readln(n,m);
for i:=1 to n do
read(a[i]);
d:=0;
for i:=1 to n do
begin
    s:=s+a[i];
    if (s+a[i+1]>m) then
        begin
            inc(d);
            s:=0;
        end;
end;
write(d+1);
readln;
end.

var n,h,d,s:longint;
    a:array[0..1000] of longint;
procedure nhap;
var i:longint;
begin
        read(n,h);
        for i:=1 to n do
                read(a[i]);
end;
procedure giai;
var i:longint;
begin
        d:=0;
        for i:=1 to n-1 do
        begin
                s:=s+a[i];
                if s+a[i+1]>h then
                begin
                        inc(d);
                        s:=0;
                end;
        end;
        write(d+1);
end;
begin
        assign(input,'bl4.inp'); reset(input);
        assign(output,'bl4.out'); rewrite(output);
        nhap;
        giai;
end.