var v:array[1..16000] of integer;
f,g:text;
n,k,i,j,x:longint;
begin
assign(f,'secventa.in');
assign(g,'secventa.out');
reset(f);
rewrite(g);
read(f,n,k);
for i:= 1 to n do read(f,v[i]);
for i:= 1 to n-1 do
for j:= i+1 to n do
if v[i]<v[j] then begin
x:=v[i];
v[i]:=v[j];
v[j]:=x;
end;
{poz[k]:=i; inc(k);
for m:=1 to k-1 do
for n:=m+1 o k do
if poz[m]<poz[n] then begin
y:=poz[m];
poz[m]:=poz[n];
poz[n]:=y;
end;}
for i:= 1 to k do write(g,v[i],' ');
close(g);
end.