var f1,f2:text; i,j,l,k,g,h,ok,s,sa,n:longint; a:array[1..100] of longint;

procedure pozitie(var m:longint; p,u:longint);
var i,j,di,dj,aux:longint;
begin
di:=0;
dj:=-1;
i:=p;
j:=u;
while i<j do
begin
if a[i]>a[j] then
begin
aux:=di;
di:=-dj;
dj:=-aux;
aux:=a[i];
a[i]:=a[j];
a[j]:=aux;
end;
i:=i+di;
j:=j+dj;
end;
m:=i;
end;

procedure quick(p,u:longint);
var m:longint;
begin
if p<u then
begin
pozitie(m,p,u);
quick(p,m-1);
quick(m+1,u);
end;
end;

begin
        assign(f1,'loto.in');
        reset(f1);
        assign(f2,'loto.out');
        rewrite(f2);
        read(f1,n,s);
        for i:=1 to n do read(f1,a[i]);
        quick(1,n);
        for g:=n downto 1 do begin
                for h:=n downto 1 do begin
                        for i:=n downto 1 do begin
                                for j:=n downto 1 do begin
                                        for k:=n downto 1 do begin
                                                for l:=n downto 1 do begin sa:=a[i]+a[j]+a[g]+a[l]+a[k]+a[h]; if s=sa then begin
                                                        writeln(f2,a[i],' ',a[j],' ',a[l],' ',a[k],' ',a[h],' ',a[g]);
                                                        ok:=1;
                                                        break;
                                                        end;
                                                        end;
                                        if ok=1 then break;
                                        end;
                                if ok=1 then break;
                                end;
                        if ok=1 then break;
                        end;
                if ok=1 then break;
                end;
        if ok=1 then break;
        end;
        if ok=0 then writeln(f2,-1);
        close(f1);
        close(f2);
end.