我们称一个长度为2n的数列是有趣的，当且仅当该数列满足以下三个条件：

(1)它是从1到2n共2n个整数的一个排列{a_i}；

(2)所有的奇数项满足a₁<a₃<…<a_2n-1，所有的偶数项满足a₂<a₄<…<a_2n；

(3)任意相邻的两项a_2i-1与a_2i(1≤i≤n)满足奇数项小于偶数项，即：a_2i-1<a_2i。

现在的任务是：对于给定的n，请求出有多少个不同的长度为2n的有趣的数列。因为最后的答案可能很大，所以只要求输出答案 mod P的值。

输入文件只包含用空格隔开的两个整数n和P。输入数据保证，50%的数据满足n≤1000，100%的数据满足n≤1000000且P≤1000000000。

仅含一个整数，表示不同的长度为2n的有趣的数列个数mod P的值。

#include <iostream>

#include <cstdio>

#include <cstring>

#include <algorithm>

#include <cmath>

using namespace std;

typedef long long ll;

const int N=2e6+;

inline int read(){

    char c=getchar();int x=,f=;

    while(c<''||c>''){if(c=='-')f=-;c=getchar();}

    while(c>=''&&c<=''){x=x*+c-'';c=getchar();}

    return x*f;

}

int n,MOD;

bool notp[N];

int p[N],lp[N];

void sieve(int n){

    for(int i=;i<=n;i++){

        if(!notp[i]) p[++p[]]=i,lp[i]=p[];

        for(int j=;j<=p[]&&i*p[j]<=n;j++){

            notp[i*p[j]]=;

            lp[i*p[j]]=j;

            if(i%p[j]==) break;

        }

    }

}

int e[N];

void add(int x,int d){

    while(x!=){

        e[lp[x]]+=d;

        x/=p[lp[x]];

    }

}

void solve(){

    ll ans=;

    for(int i=*n;i>=n+;i--) add(i,);

    for(int i=;i<=n;i++) add(i,-);

    add(n+,-);

    for(int j=;j<=p[];j++) for(;e[j];e[j]--) ans=ans*p[j]%MOD;

    printf("%lld",ans);

}

int main(){

    freopen("in","r",stdin);

    n=read();MOD=read();

    sieve(n<<);

    solve();

}