var i,n,k:word;
s1,s2,s:longint;
f:text;
begin
assign(f,'sandokan.in');reset(f);
readln(f,n,k);
close(f);
s1:=1;
s2:=1;
for i:=(n-(n-k)+1) to n do
s1:=s1*i;
for i:=1 to n-k do
s2:=s2*i;
s:=s1 div s2;
assign(f,'sandokan.out');rewrite(f);
write(f,s mod 2000003);
close(f);
end.