var fi,fo:text;
    m,n,k,rez:int64;
    i:longint;
begin
  assign(fi,'sandokan.in'); reset(fi);
  assign(fo,'sandokan.out'); rewrite(fo);
  read(fi,n,k);
  m:=n mod (k-1);
  dec(m); dec(n);
  rez:=1;
  for i:=1 to n do
    rez:=rez*i;
  for i:=1 to m do
    rez:=rez div i;
  for i:=1 to n-m do
    rez:=rez div i;
  writeln(fo,rez mod 2000003);
  close(fi);
  close(fo);
end.