#include <bits/stdc++.h>

#define int long long
#define ll long long
#define ld long double
#define endl '\n'
#define st first
#define nd second
#define pb push_back
#define sz(x) (int)(x).size()
#define all(x) (x).begin(), (x).end()
using namespace std;
int inf=1000000007;
ll infl=1000000000000000007;
int mod=998244353;

const int N=20007;

int fac[2*N];
int inv[2*N];
 
int pot(int x,int p) {int res=1;for(;p;p>>=1) {if(p&1) res=res*x%mod; x=x*x%mod;} return res;}
int npok(int n,int k)
{
    if(min(k,n)<0||k>n) return 0;
    return fac[n]*inv[n-k]%mod;
}

int DP[2][N][3];

int n;

void add(int i,int j,int c,int x)
{
	if(i>n||j>n) return;
	DP[j%2][i][c]+=x;
	if(DP[j%2][i][c]>=mod) DP[j%2][i][c]-=mod;
}

signed main()
{
    ios_base::sync_with_stdio(0);
    cin.tie(0);
    cout.tie(0);
    cin>>n>>mod;
    fac[0]=1;
    for(int i=1;i<=2*n;i++) fac[i]=fac[i-1]*i%mod;
    inv[2*n]=pot(fac[2*n],mod-2);
    for(int i=2*n-1;i>=0;i--) inv[i]=inv[i+1]*(i+1)%mod;
    int tot=fac[2*n]*inv[n]%mod;
    for(int i=1;i<=n;i++) tot=tot*pot(2,mod-2)%mod;
    DP[0][0][2]=1;
    for(int j=0;j<=n;j++)
    {
		int J=j%2;
		memset(DP[1-J],0,sizeof DP[1-J]);
		for(int i=0;i<=j;i++)
		{
			if(j-i>0) add(j,j,2,DP[J][i][0]*npok(2*n-i-j-1,j-i-1)%mod);
			if(j-i>1) add(j-1,j,1,DP[J][i][0]*npok(2*n-i-j-1,j-i-2)%mod*(j-i-1)%mod);
			add(i,j+1,0,DP[J][i][0]);
			
			add(i+1,j,2,DP[J][i][1]);
			add(i,j+1,1,DP[J][i][1]);
			
			add(i,j+1,0,DP[J][i][2]);
		}
	}
    cout<<(tot-DP[n%2][n][2]+mod)%mod;
    
    return 0;
}