program sandokan;
var f,g:text;
    n,k,x,i,l,s:longint;
    p:int64;

function cmmdc(a,b:longint):longint;
var o:longint;
begin
  o:=a mod b;
  while (o<>0)do
    begin
      a:=b;
      b:=o;
      o:=a mod b;
    end;
  cmmdc:=b;
end;

function comb(k,n:longint):int64;
var v:array[0..5100]of longint;
    i,p,cp,s:longint;
    m:int64;
begin
  for i:=1 to k do v[i]:=n-k+i;
  for p:=2 to k do
    begin
      cp:=p;
      for i:=1 to k do
        begin
          s:=cmmdc(cp,v[i]);
          cp:=cp div s;
          v[i]:=v[i] div s;
          if (cp=1)then break;
        end;
    end;
  m:=1;
  for i:=1 to k do
    m:=m*v[i] mod 2000003;
  comb:=m;
end;



begin
assign(f,'sandokan.in');
assign(g,'sandokan.out');
reset(f);
rewrite(g);
read(f,n,l);
{for i:=1 to n do read(f,x);}
s:=n-l;
if (l<s)then s:=l-1;
p:=comb(s,n-1) mod 2000003;

write(g,p);
close(f);
close(g);
end.