#include <cstdio>

#define I_F "merge.in"
#define O_F "merge.out"

const int MAXn=1000+1;
const int P=10007;

int n,ans;
int fact[MAXn]={1};
int f[MAXn][MAXn]={{0}};

void Input();
inline int C(const int&, const int&);
inline int A(const int&, const int&);
void GetFact();
void Dynap();
void Output();

int main()
{
	Input();
	GetFact();
	Dynap();
	Output();
	return 0;
}

void Input()
{
	freopen(I_F,"r",stdin);
	scanf("%d",&n);
}

inline int C(const int &n, const int &m)
{
	return fact[n]/((fact[n-m]*fact[m])%P);
}

inline int A(const int &n, const int &m)
{
	return fact[n]/fact[n-m];
}

void GetFact()
{
	for (int i=1; i<=n; i++)
		fact[i]=(fact[i-1]*i)%P;
}

void Dynap()
{
	for (int i=0; i<=n; f[i++][0]=1);
	for (int i=2; i<=n; i++)
		for (int j=1; j<i; j++)
			for (int k=0; k<=j; k++)
				f[i][j]+=(f[i-1][k]*C(i-1,i-1-k))%P;
	ans=(f[n][n-1]*A(n-1,n-1))%P;
}

void Output()
{
	freopen(O_F,"w",stdout);
	printf("%d\n",ans);
}