program alex;
const tc=10007;
var f:text;
    t:array[1..301,1..301]of longint;
    a,fact:array[1..301]of longint;
    i,p,j,s,h,d,n,k:longint;
begin
assign(f,'permutari2.in');reset(f);
readln(f,n,k);
close(f);
p:=1;
for i:=1 to n do
    begin
    p:=(p*i)mod tc;
    fact[i]:=p;
    end;
a[1]:=1;
for i:=2 to n do
    begin
    a[i]:=fact[i];
    for j:=1 to i-1 do
        begin
        d:=(fact[j]*a[i-j])mod tc;
        a[i]:=(a[i]-d)mod tc;
        end;
    end;
t[1,1]:=1;t[2,1]:=1;t[2,2]:=1;
for i:=1 to n do
    for j:=2 to k do
        begin
        s:=0;
        for h:=1 to i-j+1 do
            s:=(s+((t[i-h,j-1]*a[h])mod tc))mod tc;
        t[i,j]:=s;
        end;
assign(f,'permutari2.out');rewrite(f);
writeln(f,t[n,k]);
close(f);
end.