#include<bits/stdc++.h>
using namespace std;
long long a[100005],b[100005];
long long lena,lenb;
void add(long long x)
{
	for(int i=1;i<=lena;i++)
	{
		a[i]*=x;
	}
	int carry=0; 
	for(int i=1;i<=lena;i++)
	{
		a[i]+=carry;
		carry=a[i]/10;
		a[i]%=10;
	}
	while(carry)
	{
		a[++lena]=carry%10;
		carry/=10; 
	}
}
void bdd()
{
	int i; 
	for(i=1;i<=lena;i++)
	{
		b[i]+=a[i];
	}
	int carry=0;
	int maxn=max(lena,lenb); 
	for(i=1;i<=maxn||carry;i++)
	{
		if(i>lenb)
		{
			lenb=i;
		}
		int tmp=b[i]+carry;
		b[i]=tmp%10; 
		carry=tmp/10;	
	}
	while(lenb>1&&b[lenb]==0)
	{
		lenb--;
	} 
}
int main()
{
	long long n;
	cin>>n;
	memset(a,0,sizeof(a));
	memset(b,0,sizeof(b));
	a[1]=1;
	lena=1;
	b[1]=0;
	lenb=1;
	for(int i=1;i<=n;i++)
	{
		add(i);
		bdd();
	}
	for(int i=lenb;i>=1;i--)
	{
		cout<<b[i];
	}
	return 0;
}

#include<cstdio>
#include<cstring>
#define max(u,v) u>v?u:v
int n,s[1000],k[1000];//全局
int l1=1,l2=1;
void cheng(int u)//阶乘
{
	int x=0;
	for(int i=1;i<=l1;i++)
	{
		k[i]=k[i]*u+x;
		x=k[i]/10;
		k[i]%=10;
	}
	while(x)//x可能会大于10或者100，所以来把x分位存
	{
		k[++l1]=x%10;
		x=x/10;
	}
}
void jia()//求和
{
	int x=0,z=max(l1,l2);
	for(int i=1;i<=z;i++)
	{
	s[i]=s[i]+k[i]+x;
	x=s[i]/10;
	s[i]%=10;
	}
	l2=z;
	while(x)//同理
	{
		s[++l2]=x%10;
		x=x/10;
	 } 
}
int main()
{
	k[1]=1;s[1]=1;
	scanf("%d",&n);
	for(int i=2;i<=n;i++)
		{
			cheng(i);//保证了每次都i的阶乘
			jia();
		}
	for(int i=l2;i>=1;i--)
		printf("%d",s[i]);
}