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.