program loto;
uses crt;
var n,i:byte;
    sp:longint;
    g:boolean;
    f,h:text;
    v,sol:array[1..100]of longint;
procedure ext(i:byte;s:longint);
var x,l:byte;
begin
     if (s=sp)or(i=7)then
        begin
             if (s=sp)and(i=7) then
                g:=true;
        end
     else
          for x:=1 to n do
           if not g then
            if s+v[x]<=sp then
               begin
                    sol[i]:=v[x];
                    ext(i+1,s+v[x]);
               end;
end;
begin
     assign(f,'loto.in');
     reset(f);
     assign(h,'loto.out');
     rewrite(h);
     readln(f,n,sp);
     for i:=1 to n do
         read(f,v[i]);
     g:=false;
     close(f);
      ext(1,0);
     if g then
        for i:=1 to 6 do
            write(h,sol[i],' ')
        else
            writeln(h,-1);
     close(h);
end.