program tir;
type vec= array[1..1000] of integer;
var f:text;
    n,i,j,s,aux:integer;
    nr,ur:array[0..1000] of integer;
    v:vec;
    begin
    assign(f,'loto.in'); reset(f);
    readln(f,n,s);
    for i:= 1 to n do read(f,v[i]);
    assign(f,'loto.out');rewrite(f);
    for i:=1 to n-1 do
        for j:=i+1 to n do
          if v[i]<v[j] then begin
                                 aux:=v[i];
                                 v[i]:=v[j];
                                 v[j]:=aux;
                             end;
    nr[0]:=1;
    ur[0]:=0;
    for i:= 1 to n do
    for j:= 0 to s-v[i] do begin
    if (nr[j]<>0)   and
       (nr[j+v[i]]<1+nr[j]) then begin
                                       nr[j+v[i]]:=1+nr[j];
                                       ur[j+v[i]]:=j;
                                 end;
       if nr[s]=7 then begin
   while s<>0 do
   begin
        write(f,s-ur[s],' ');
        s:=ur[s];
   end;
   close(f);
     halt
     end;
     end;
write(f,'-1');
close(f)
     end.