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