const z: longint = 666013;
var n,k,q,r,i: integer;
    rez,fact: longint;

begin
   assign(input,'kperm.in'); reset(input);
   read(n,k);

   q:=n div k;
   r:=n mod k;
   rez:=1;
   for i:=1 to r do rez:=(rez*i) mod z;
   for i:=1 to k-r do rez:=(rez*i) mod z;
   fact:=1;
   for i:=1 to q do fact:=(fact*i) mod z;
   for i:=1 to k-r do rez:=(rez*fact) mod z;
   fact:=(fact*(q+1)) mod z;
   for i:=1 to r do rez:=(rez*fact) mod z;

   assign(output,'kperm.out'); rewrite(output);
   writeln(rez);
   close(output);
end.