var n,k,p,c,cc,r,i:longint;
begin
assign(input,'kperm.in'); reset(input);
assign(output,'kperm.out'); rewrite(output);
readln(n,k);
if k mod 2=0 then writeln('0')
  { else if n>=2*k then writeln('0')}
             else
                begin
c:=n div k; r:=n mod k;
p:=1;
cc:=1;
for i:=1 to c do
   cc:=(cc*i) mod 666013;

for i:=1 to k-r do
  begin
     p:=(p*i) mod 666013;
     p:=(p*cc) mod 666013;
  end;
cc:=(cc*(c+1)) mod 666013;
for i:=1 to r do
  begin
   p:=(p*i)mod 666013;
   p:=(p*cc) mod 666013;
  end;
writeln(p mod 666013);
                end;
close(input); close(output);
end.