Program BTT;
Uses crt;
Var a,d: array[1..10000] of longint;
    n,h,i,sum,j,k: longint;
Procedure Nhap;
Begin
        Write('Nhap n va h: '); Readln(n,h);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Read(A[i]);
        End;
End;

Procedure Test(x: longint);
Begin
        sum:=0; j:=0;
        For i:=x to n do
                If (sum+A[i])<=h then
                Begin
                        inc(j);
                        sum:=sum+A[i];
                        d[j]:=a[i];
                        If sum=h then
                        Begin
                                For k:=1 to j do Write(d[k],' ');
                                Exit;
                        End;
                End;
End;

Begin
        Clrscr;
        nhap;
        For i:=1 to n do Test(i);
        Readln;
        Readln;
End.