var a,b,c,d,e,f,n,s,aux,sum,ni:longint;
    v:array[1..100]of longint;
begin
  assign(input,'loto.in');reset(input);
  assign(output,'loto.out');rewrite(output);
  readln(n,s);
  ni:=n;
  for a:=1 to n do read(v[a]);
{  for a:=1 to n-1 do
    for b:=a+1 to n do
      if v[a]>v[b] then begin aux:=v[a];v[a]:=v[b];v[b]:=aux;end;}
  for a:=1 to n do
    for b:=1 to n do
      for c:=1 to n do
        for d:=1 to n do
          for e:=1 to n do
            for f:=1 to n do
              if v[a]+v[b]+v[c]+v[d]+v[e]+v[f]=s then begin
                write(v[a],' ',v[b],' ',v[c],' ',v[d],' ',v[e],' ',v[f]);
                sum:=1;
                a:=n+1;b:=n+1;c:=n+1;d:=n+1;e:=n+1;f:=n+1;
              end;
  if sum=0 then writeln('-1');
  close(input);close(output);
end.