program loto;
var f,g:text;
    n:byte;
    v,a:array[1..100]of integer;
    s,max,i,aux2,k,sum:integer;

procedure citire;
begin
readln(f,n,s);
for i:=1 to n do read(f,v[i]);
end;

procedure maxim;
begin
max:=1;
for i:=1 to aux2 do
 if v[i]>max then max:=v[i];
end;

procedure sortare;
var j,aux:integer;
begin
 for j:=1 to n-1 do
  for i:=j to n do
   if v[i]>v[i+1] then begin
                       aux:=a[i];
                       a[i]:=a[i+1];
                       a[i+1]:=aux;
                       end;
end;

procedure suma;
begin
sum:=0;
for i:=1 to aux2-1 do sum:=sum+v[i];
end;

procedure prelucrare;
begin
i:=1;sum:=0;k:=1;
suma;
repeat
  while(s>sum+max-1)do
    begin
    s:=s-max;
    a[k]:=max;
    k:=k+1;
    end;
  aux2:=aux2-1;
  s:=sum+1;
  maxim;
  suma;
  i:=i+1;
until(aux2=0)
end;

procedure scriere;
begin
 for i:=k-1 downto 1 do write(g,a[i],' ');
end;
begin
assign(f,'loto.in');
reset(f);
assign(g,'loto.out');
rewrite(g);
citire;
aux2:=n;
maxim;
sortare;
suma;
prelucrare;
scriere;
close(f);
close(g);
end.