var f,g:text;
v:array[1..20] of integer;
k,k2,k3,n,i,j,l,p:integer;ok:boolean;
begin
assign(f,'secventa.in');reset(f);
assign(g,'secventa.out');rewrite(g);
readln(f,n,k);
for i:=1 to n do
read(f,v[i]);
for i:=1 to n-k+1 do begin
l:=0;ok:=false;k2:=0;
while l<>k-1 do begin
l:=l+1;
if v[i]<v[i+l] then k2:=k2+1;
end;
if k2=l then ok:=true;
if (ok=true) and (k3<v[i]) then begin p:=i;k3:=v[i];end;
end;
for i:=p to p-1+k do
write(g,v[i],' ');
readln;
close(f);
close(g);
end.