var v:array[1..10000]of longint;
    n,i,j,k,l,t:longint;
    f:text;
begin
   assign(f,'sandokan.in');
   reset(f);
   read(f,n,k);
   n:=n-1;
   k:=k-1;
   k:=k*(n div k);
   for i:=1 to n+1 do
   read(f,j);
   close(f);
   v[1]:=1;
   l:=1;
   for i:=k+1 to n do
   begin
   j:=0;
   while(t>0)or(j<l)do
   begin
   j:=j+1;
   v[j]:=v[j]*i+t;
   t:=v[j] div 10;
   v[j]:=v[j] mod 10;
   end;
   l:=j;
   end;
   for i:=2 to(n-k)do
   begin
   j:=l+1;
   l:=0;
   while j>1 do
   begin
   j:=j-1;
   t:=t*10+v[j];
   t:=v[j] mod i;
   v[j]:=v[j] div i;
   if(l>0)or(v[j]>0)then l:=l+1;
   end;
   end;
   j:=l+1;
   l:=0;
   while j>1 do
   begin
   j:=j-1;
   t:=t*10+v[j];
   t:=v[j] mod 2000003;
   v[j]:=v[j] div i;
   if(l>0)or(v[j]>0)then l:=l+1;
   end;
   assign(f,'sandokan.out');
   rewrite(f);
   writeln(f,t);
   close(f);
end.