program loto;
var n,k1,k2,k3,k4,k5,k6,i,j,aux:byte;
    s,ss:longint;
    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[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.