var f1,f2:text;
    q,a:array[1..500000] of integer;
    nr,bmax,min,i,j,n,k: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]);
bmax:=-30000;
for i:=1 to n-k+1 do
 begin
  min:=30000;
  nr:=0;j:=i-1;
  repeat
   if j=n then j:=1
          else j:=j+1;
   if a[j]<min then min:=a[j];
   nr:=nr+1;
  until nr=k;
  if min>bmax then begin
                    bmax:=min;
                    nr:=0;j:=i-1;
                    repeat
                     if j=n then j:=1
                            else j:=j+1;
                     nr:=nr+1;
                     q[nr]:=a[j];
                    until nr=k;
                   end;
 end;
for i:=1 to k do
 write(f2,q[i],' ');
close(f1);
close(f2);
end.