var f,g:text;    
     n,s,i,j,k,l,x,y,p:longint;    
     a:array[1..100]of longint;    
     v:boolean;    
     
 begin    
 assign(f,'loto.in');    
 reset(f);    
 assign(g,'loto.out');    
 rewrite(g);    
 readln(f,n,s);    
 for i:=1 to n do read(f,a[i]);    
 for i:=1 to n-1 do    
    for j:=i+1 to n do           if a[i]<a[j] then begin    
                         p:=a[i];                             a[i]:=a[j];    
                         a[j]:=p;    
                         end;    
 i:=0;     v:=true;    
 while (i<n)and v do begin    
    i:=i+1;    
    p:=a[i];    
    j:=i-1;    
    while (j<n) and v and (p<s+1) do begin    
       j:=j+1;    
       p:=p+a[j];    
       k:=j-1;    
       while (k<n) and v and(p<s+1) do begin    
          k:=k+1;    
          p:=p+a[k];    
          l:=k-1;    
          while (l<n) and v and (p<s+1) do begin    
             l:=l+1;    
             p:=p+a[l];    
             x:=l-1;    
             while (x<n) and v and (p<s+1) do begin    
                x:=x+1;    
                p:=p+a[x];    
                y:=x-1;    
                while (y<n) and v and (p<s+1) do begin    
                  y:=y+1;    
                  if p+a[y]=s then begin    
                                   v:=false;    
                                   write(g,a[i],' ',a[j],' ',a[k],' ',a[l],' ',a[x],' ',a[y]);    
                                   end;    
                end;    
                p:=p-a[x];    
             end;    
             p:=p-a[l];    
          end;    
          p:=p-a[k];    
       end;    
      p:=p-a[j];    
    end;    
 end;    
 if v then write(g,-1);    
 close(g);    
 end