program may_rut_tien;
const fi='atm.inp';
      fo='atm.out';
      nm=1000;
type arr1=array[1..nm] of longint;
var n,x:integer;
    s:longint;
    t,l:arr1;
    f:text;
{============init=============}
procedure init;
var i:integer;
begin
  assign(f,fi);reset(f);
  readln(f,n,s);
  for i:=1 to n do read(f,t[i]);
  close(f);
  assign(f,fo);rewrite(f);
end;
{===========doicho============}
procedure dc(var a,b:longint);
var tg:longint;
begin
  tg:=a;
  a:=b;
  b:=tg;
end;
{==========quicksort==========}
procedure quicksort;
procedure phanhoach(d,c:longint);
var i,j:longint;
begin
  x:= t[(d+c)div 2];
  i:=d;
  j:=c;
  repeat
  while x>t[i] do inc(i);
  while x
  if i<=j then
        begin
          dc(t[i],t[j]);
          inc(i);dec(j);
        end;
  until(i>j);
  if d
  if i
end;
begin
  phanhoach(1,n);
end;
{============process============}
procedure process;
var i,d:integer;
begin
  d:=0;
  for i:=n downto 1 do
    if (s-t[i]>=0) then
      begin
          s:=s-t[i];
          inc(d);
          l[d]:=t[i];
      end;
  if s<>0 then writeln(f,-1)
  else
    for i:=d downto 1 do
      write(f,l[i],' ');
  close(f);
end;
{============main=============}
begin
  init;
  quicksort;
  process;
end.

program so_hoan_hao;
const fi='shh.inp';
      fo='shh.out';
var n:longint;
    f:text;
{============nhap============}
procedure nhap;
begin
  assign(f,fi);reset(f);
  readln(f,n);
  close(f);
  assign(f,fo);rewrite(f);
end;
{==========ktshh============}
function ktshh(n:longint):boolean;
var i:longint;
  tong:int64;
begin
  tong:=0;
  for i:=1 to (n div 2) do
    begin
      if (tong + i > n) then exit(false);
      if (n mod i=0) then tong:=tong+i;
    end;
  if tong = n then exit(true);
  exit(false);
end;
{==========xuli=============}
procedure xuli;
var i:longint;
begin
  for i:=1 to n do
    if ktshh(i) then writeln(f,i);
  close(f);
end;
{===========main============}
begin
  nhap;
  xuli;
end.

program hanh_trinh_ki_tu;
const fi='htkt.inp';
      fo='htkt.out';
      d: array[1..2] of integer=(0,1);
      c: array[1..2] of integer=(1,0);
var p:text;
    s:string;
    kt,f:array[1..32,1..32]of char;
    dem,tg:longint;
{============init=============}
procedure init;
var i,j:integer;
begin
  assign(p,fi);reset(p);
  read(p,s);
  close(p);
  tg:=length(s);
  for i:=1 to tg do
      for j:=1 to (tg-i+1) do kt[i,j]:=s[j+i-1];
  assign(p,fo);rewrite(p);
  dem:=0;
  f:=kt;
  f[1,1]:='*';
end;
{==========ghinhan============}
procedure gn;
var i,j:integer;
begin
  inc(dem);
  writeln(p,'hanh trinh thu: ',dem);
  for i:=1 to tg do
    begin
      for j:= 1 to (tg-i+1) do
          if f[i,j]= '*' then write(p,f[i,j])
        else                write(p,kt[i,j]);
      writeln(p);
    end;
end;
{============try==============}
procedure try(i,j,h:integer);
var x,y,k:integer;
begin
  for k:=1 to 2 do
    begin
      x:=i+d[k];
      y:=j+c[k];
      f[x,y]:='*';
      if h= tg then gn
      else try(x,y,h+1);
      f[x,y]:=' ';
    end;
end;
{============main=============}
begin
  init;
  try(1,1,1);
  close(p);
end.