type vect=array[1..100] of longint;
var s,s2:longint;
    i,j,k,n:integer;
    v,v2:vect;
    ok:boolean;
    f:text;
begin
{assign(f,'loto.in');
reset(f);
readln(f,n,s);
for i:=1 to n do read(f,v[i]);
repeat
ok:=true;
for i:=1 to n-1 do
        if v[i]>v[i+1] then begin
                        ok:=false;
                        k:=v[i];
                        v[i]:=v[i+1];
                        end;
        until ok;
s2:=0;
k:=0;
ok:=true;
i:=n;
k:=0;
for i:=1 to n do v2[i]:=0;
while ok do begin
        if (v[i]+s2<=s) then begin
                        if (k<=6) then begin
                                s2:=s2+v[i];
                                inc(k);
                                inc(v2[i]);
                                end
                        else begin
                             dec(k);
                             dec(i);
                             end;
                        end
                                else begin
                                dec(k);
                                s2:=s2-v[i];
                                dec(v2[i]);
                                dec(i);
                                end;
        if (s=s2) and (k=6) then ok:=false;
        if i=0 then ok:=false;
        end;
close(f);}
assign(f,'loto.out');
rewrite(f);
writeln(f,'-1');{
if (i=0)and(s<>s2) then writeln(f,'-1')
else
        for i:=1 to n do
                for j:=1 to v[i] do write(f,v[i],' ');}
close(f);
end.