ll@n,@p,a=1,b=1,c=0;
rep(i,1,n+1){
	a=a*i%(MD-1);
	b=b*i%MD;
}
b=powmod(b,a,MD);
while(n){
	c+=n/=p;
}
wt(b*c%MD);