var  n:byte;
     s,ss:longint;
     k1,k2,k3,k4,k5,k6:byte;
     i,j,aux:byte;
     a:array[1..100] of byte;
     f:text;
     sw:boolean;
begin
assign(f,'loto.in');
reset(f);
read(f,n,s);
for i:=1 to n do
read(f,a[i]);
close(f);
sw:=true;
for i:=1 to n-1 do
 for j:=i+1 to n do
 if a[i]>a[j] then
              begin
              aux:=a[i];
              a[i]:=a[j];
              a[j]:=aux;
              end;
assign(f,'loto.out');
rewrite(f);
for k1:=1 to n do
for k2:=k1 to n do
for k3:=k2 to n do
for k4:=k3 to n do
for k5:=k4 to n do
for k6:=k5 to n do
begin
ss:=a[k1]+a[k2]+a[k3]+a[k4]+a[k5]+a[k6];
if (ss=s) and (sw=true) then begin
             write(f,a[k1],' ',a[k2],' ',a[k3],' ',a[k4],' ',a[k5],' ',a[k6]);
             sw:=false;
             end;
end;
if sw=true then write(f,'-1');
close(f);
end.