program pd;
var f,g:text;a,b,c,d,e,i,j,q,s,n,k,m,z:longint;
    v,x,w,y:array[1..1000]of longint;ok:boolean;
begin
   assign(f,'distincte.in');reset(f);
   assign(g,'distincte.out');rewrite(g);
   read(f,n,k,m); z:=m*2;q:=1; readln;
   for i:=1 to n do readln(f,x[i]);
      for j:=q to m do begin read(f,y[q],y[q+1]);
     if m<z then begin q:=m+1;m:=m+2; readln;
     end;end;c:=0;d:=0;
        repeat
     c:=d+1;d:=d+2;e:=0; s:=0;
     for i:=y[c] to y[d] do begin
     e:=e+1;;
      v[e]:=x[i];end;
  w[1]:=v[1];a:=1;
   for b:=2 to e do begin
    ok:=true;
    for j:=1 to a do
    if w[j]=v[b] then ok:=false;
    if ok then begin
    a:=a+1;w[a]:=v[b];end;end;
    for i:=1 to a do s:=s+w[i];
     writeln(g,s mod 666013);

      until d=z;
         end.