var d:array[1..1000] of longint;
    a:array[1..6] of longint;
    i,x,y,n,s,r:longint;
    ok:boolean;
    f,g:text;
begin
assign(f,'loto.in');reset(f);
assign(g,'loto.out');rewrite(g);
read(f,n,s);
for i:=1 to n do
    read(f,d[i]);
x:=s div 6;
y:=s mod 6;
r:=d[n];
ok:=true;
if r<x+1 then ok:=false;
if ok then begin
   for i:=1 to 6 do
       a[i]:=x;
   for i:=1 to y do
       a[i]:=a[i]+1;
   for i:=1 to 6 do
       write(g,a[i],' ');
   end
      else writeln(g,'-1');
close(f);
close(g);
end.