program exhibit;
type
shuzu=array[1..1000000] of integer;
shuzu1=array[1..2000] of integer;
anss=array[1..1000000,1..2] of integer;
var
i,j,k,m,n,c,tou,wei,min:longint;
f1,f2:text;
ans:anss;
flag:boolean;
s:shuzu;
f:shuzu1;
begin
assign(f1,'exhibit.in');reset(f1);
assign(f2,'exhibit.out');rewrite(f2);
readln(f1,n,m);
for i:=1 to n do
read(f1,s[i]);
fillchar(f,sizeof(f),0);
fillchar(ans,sizeof(ans),0);
tou:=1; wei:=1; flag:=false; c:=0; min:=maxlongint;
while (wei<=n)and(tou<=n-m+1) do
 begin
 flag:=false;
  for i:=1 to m do
    if f[i]<1 then flag:=true;
  if not flag then
    begin
    if min>c then begin min:=c; ans[min,1]:=tou;ans[min,2]:=wei-1; end;
    inc(tou);
    dec(f[s[tou-1]]);
    dec(c);
    end
    else
    begin
   inc(f[s[wei]]);
   inc(c);
   inc(wei);
   end;
 end;
 writeln(f2,ans[min,1],' ',ans[min,2]);
 close(f2);
 end.