program loto;
type vector=array [1..100] of longint;
var v:vector;
n,s,i1,i2,i3,i4,i5,i6:longint;
ok:boolean;
f:text;
begin
assign(f,'loto.in'); reset(f);
readln(f,n,s);
for i1:=1 to n do
        read(f,v[i1]);
close(f);
ok:=false;
i1:=0;
assign(f,'loto.out'); rewrite(f);
repeat
 i1:=i1+1;
 i2:=0;
 repeat
  i2:=i2+1;
  i3:=0;
  repeat
   i3:=i3+1;
   i4:=0;
   repeat
    i4:=i4+1;
    i5:=0;
    repeat
     i5:=i5+1;
     i6:=0;
     repeat
      i6:=i6+1;
      if v[i1]+v[i2]+v[i3]+v[i4]+v[i5]+v[i6]=s then
        begin
        writeln(f,v[i1],' ',v[i2],' ',v[i3],' ',v[i4],' ',v[i5],' ',v[i6]);
        ok:=true
        end
     until ok or (i6=n)
    until ok or (i5=n)
   until ok or (i4=n)
  until ok or (i3=n)
 until ok or (i2=n)
until ok or (i1=n);
if ok=false then writeln(f,-1);
close(f)
end.