uses crt;
var A, B : array [1 .. 1000] of integer;
    i, N, S, k, Min, j : integer;
    
begin
    clrscr;
    readln(N, k);
    for i := 1 to N do read(A[i]);

    for i := 1 to N do 
        if A[i] >= k then B[i] := -1
        else 
            begin
                S := 0;
                for j := i to N do
                    begin
                        S := S + A[j];
                        if S >= k then break;
                    end;
                if S = k then B[i] := j - i + 1
                else B[i] := -1;
            end;

    for i := 1 to N do
        if B[i] > 1 then 
            begin
                Min := B[i];
                break;
            end;
        
    for i := 2 to N do
        if (B[i] < Min) and (B[i] > 1) then Min := B[i];
    
    for i := 1 to N do
        if B[i] = Min then
            begin
                for j := i to i + B[i] - 1 do write(A[j],' ');
                writeln;
            end;
    
    readln
end.

* Input : 
8 15
1 2 3 4 5 3 7 8
- Các dãy con tổng bằng 15 :
+ 1 2 3 4 5
+ 3 4 5 3
+ 7 8
* Output :
7 8