#include<bits/stdc++.h>
using namespace std;
const int N=1e7+5; 
long long jc[N],njc[N],h[N];
int n;
int p;
inline long long qmi(long long a,int b){
	long long ans=1;
	while(b){
		if(b&1) ans=ans*a%p;
		a=a*a%p;
		b>>=1;
	}
	return ans;
}
inline long long C(int n,int m){
	return jc[n]*njc[m]%p*njc[n-m]%p;
}
inline void work(){
	register int nn=(n<<1)+2,m=n+2;
	jc[0]=jc[1]=njc[0]=njc[1]=1;
	for(register int i=2;i<=nn;i++) jc[i]=jc[i-1]*i%p;
	njc[nn]=qmi(jc[nn],p-2);
	for(register int i=nn;i>2;i--) njc[i-1]=njc[i]*i%p;
	h[0]=h[1]=1;
	for(register int i=2;i<=m;i++){
		h[i]=C(i<<1,i)-C(i<<1,i-1);
		if(h[i]<0) h[i]+=p;
	}
}
inline void read(int &a){
	a=0;register char c=getchar();
	while(c<'0'||'9'<c){
		if(c==-1){
			a=-1;
			return ;
		}
		c=getchar();
	}
	while('0'<=c&&c<='9'){
		a=(a<<3)+(a<<1)+(c^48);
		c=getchar();
	}
} 
inline bool slove(){
	read(n);read(p);
	if(n==-1||p==-1) return 0;
	if(n<=3){
		puts("0");
		return 1;
	}
	work();
	long long ans=0;
	n=n-1;
	long long pw=1;
	for(register int i=0;i<=n;i++){
		if((n-i)&1) ans-=pw*h[i]%p*C(n+i,n-i)%p;
		else ans+=pw*h[i]%p*C(n+i,n-i)%p;
		if(ans>=p) ans-=p;
		if(ans<0) ans+=p;
		pw<<=1;
		if(pw>=p) pw-=p; 
//		printf("%lld\n",ans);
	}
	printf("%lld\n",(jc[n+1]-ans*2%p+p)%p);
	return 1;
}
int main(){
//	int _=clock();
	while(slove()) ;
//	cerr<<clock()-_<<endl;
	return 0;
}