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.

//ProDev

uses crt;
var v,r:text; 
i,n,m,d,s,k,t:integer;
a:array[1..100] of integer;
begin
assign(v,'BL4.inp');
reset(v);
readln(v,n,m);
for i:=1 to n do read(v,a[i]);
assign(r,'BL4.inp');
rewrite(r);
i:=1;
k:=0;
while i<=n do
begin
k:=k+1;
s:=0;
write(r,'chuyen ',k,' cho kien hang ');
 d:=0;
 while s+a[i]<=m do
 begin
  s:=s+a[i];
  d:=d+1;
  if a[i]+a[i+1] >m then begin write(i);break;end;
  if d=1 then write(r,i) else write(r,' va ',i);
  if i=n then begin t:=1;break;end;
  i:=i+1;
 end;
 if d<>1 then begin writeln(r,'->trong luong ',s);i:=i-1;end
  else writeln(r,'->trong luong ',a[i]);
 s:=0;
 if t=1 then break;
 i:=i+1;
end;
close(r);
end.