var f,g:text;
    n,s,max,i,j,k,i1,j1,k1:longint;
    p,p1:boolean;
    a:array[0..1000] of longint;
begin
  assign(f,'loto.in'); reset(f);
  assign(g,'loto.out'); rewrite(g);
  read(f,n,s);
  max:=-1;
  for i:=1 to n do
    begin
      read(f,a[i]);
      if a[i]>max then max:=a[i];
    end;
  if (s div 6>max)
  or ((s div 6=max) and (s mod 6>0)) then writeln(g,'-1')
                                     else
  begin
    p:=false;
    p1:=true;
    for i:=1 to n do
      begin
        for j:=1 to n do
          begin
            for k:=1 to n do
              begin
                for i1:=1 to n do
                  begin
                    for j1:=1 to n do
                      begin
                        for k1:=1 to n do
                          if a[i]+a[j]+a[k]+a[i1]+a[j1]+a[k1]=s then
                            begin
                              p:=true;
                              writeln(g,a[i],' ',a[j],' ',a[k],' ',a[i1],' ',a[j1],' ',a[k1]);
                              break;
                            end
                                                                else
                          if a[i]+a[j]+a[k]+a[i1]+a[j1]+a[k1]>s then
                            begin
                              p:=true;
                              p1:=false;
                              break;
                            end;
                        if p then break;
                       end;
                    if p then break;
                  end;
                if p then break;
              end;
            if p then break;
          end;
        if p then break;
      end;
    if not p then writeln(g,'-1')
             else
    if p and not p1 then writeln(g,'-1');
  end;
  close(f); close(g);
end.