var     v:array[1..1000000,1..4]of 0..1000000000;
        q,a:array[1..100]of longint;
        n,k,s,i,j,nr,ss,c,d:longint;
        cont:boolean;


function valid:boolean;
begin
        valid:=true;

end;

procedure afisare;
begin
        inc(nr);
        ss:=0;
        for i:=1 to k do
        begin
        v[nr,i]:=q[a[i]];
        ss:=ss+q[a[i]];
        end;
        v[nr,4]:=ss;
end;

procedure fa;
begin



bk;
end;
	procedure bk;
begin
        k:=1;
        a[k]:=0;
        while k>0 do
        begin
                cont:=false;

                while (a[k]<3) and (not cont) do
                begin
                        a[k]:=a[k]+1;
                        if valid then
                        cont:=true;
                end;

                if not cont then
                k:=k-1
                else
                if k=3 then
                afisare
                else
                begin
                        k:=k+1;
                        a[k]:=0;
                end;
        end;
end;


begin

assign(input,'loto.in');
assign(output,'loto.out');

reset(input);
rewrite(output);

readln(n,s);

for i:=1 to n do
read(q[i]);

fa;


for i:=1 to n do
for j:=1 to nr do
if v[i,4]+v[j,4]=s then
begin
        for c:=1 to 3 do
        write()
end;






end.