var n:byte;
s,p:longint;
k,j,i:integer;
x,l:array[1..100] of integer;
f,g:text;
begin
assign(f,'loto.in');reset(f);
assign(g,'loto.out');rewrite(g);
read(f,n,s);         readln(f);
for k:=1 to n do read(f,l[k]);
k:=1;
while k<n do    {ordonez crescator numerele din vector}
    if l[k]>l[k+1] then begin
    l[k]:=l[k]-l[k+1];l[k+1]:=l[k]+l[k+1];l[k]:=l[k+1]-l[k];
    if k>1 then k:=k-1;
end else inc(k);
for k:=1 to 6 do x[k]:=l[1];
k:=0;
j:=6;
while (p<s) and (x[1]<>l[n]) do begin
p:=0;
inc(k);
x[j]:=l[k];
   for i:=1 to 6 do p:=p+x[i];
if k=n then begin k:=1;j:=j-1;end;
end;
if p<>s then write(g,-1) else for k:=1 to 6 do write(g,x[k],' ');
close(f);
close(g);
end.