var f1,f2:text;
    a:array[1..500000] of integer;
    i,j,n,k,q:integer;
begin
assign(f1,'secventa.in');
assign(f2,'secventa.out');
reset(f1);
rewrite(f2);
readln(f1,n,k);
for i:=1 to n do
 read(f1,a[i]);
for i:=1 to n-1 do
 for j:=i+1 to n do
  if a[i]<a[j] then begin
                     q:=a[i];
                     a[i]:=a[j];
                     a[j]:=q;
                    end;
for i:=1 to k do
 write(f2,a[i],' ');
close(f1);
close(f2);
end.