type vector=array [1..5000] of longint;
var c,a,n,k,i,l:longint;
v:vector;
f,g:text;
procedure citire(var n,k:longint;var v:vector);
var i:longint;
begin
readln(f,n,k);
for i:=1 to n do read(f,v[i]);
end;
begin
assign(f,'sandokan.in');
assign(g,'sandokan.out');
reset(f);
rewrite(g);
citire(n,k,v);
if n=k then write(g,'1')
else begin
     l:=n div k+n mod k;
     if l=k then write(g,'1')
     else begin
          c:=1;
          for i:=1 to n do c:=c*i;
          a:=1;
          for i:=1 to n-l do a:=a*i;
          for i:=1 to l do a:=a*i;
          c:=c div a;
          write(g,c);
          end;
     end;
close(f);
close(g);
end.