#include<bits/stdc++.h>
using namespace std;
#define int long long
int mod;
int qp(int p,int q){
	int ans = 1,pro = p;
	while(q){
		if(q&1)ans = ans*pro%mod;
		pro = pro*pro%mod;q>>=1;
	}
	return ans;
}
int n;
int f[1005][1005];
int inv[1005];
signed main(){
	cin >> n >> mod;
	if(n == 1){cout << 1 << endl;}
	inv[0] = 1;for(int i = 1;i<=n;i++)inv[i] = qp(i,mod-2);
	f[1][0] = 1;
	//代码是抄的，素质比较低，但是可以写一下注释。
	//我自己也尝试写了一下，根本写不出来，xtq老师上课讲的是非正解，虽然解法很优美但是细节是真的麻烦
	/*
	根节点比较特殊，我们把他拿出来特判，也就是在最后加进去。
	这里深度的意思是你至少要走 j 步才能走回去，不是真的钦定了深度。
	所以你每次可以跳 fa，从 dp_{i-1,0}->dp_{i,0}
	然后另一个转移是枚举一个兄弟
	你注意到这个兄弟节点不能直接作为一个子树考虑，要考虑他的儿子。
	而且他儿子的子树大小应该至少为 1
	还有一个转移是走到他兄弟的最后一个儿子
	深度会加 1，我们仍然枚举兄弟最后一个儿子的儿子的子树。
	但是这里这个子树大小为 0 是合法的，于是对其进行特判。
	*/
	for(int i = 2;i<=n;i++){
		for(int j =0;j<=i;j++){
			f[i][j] = f[i-1][j+1]*inv[i]%mod;
			if(j == 0)f[i][j] = (f[i-1][j]*inv[i]+f[i][j])%mod;
			for(int k = 1;k<i;k++){
				f[i][j] = (f[i][j]+f[i-k][j]*f[k-1][0]%mod*inv[i])%mod;
				if(j)f[i][j] = (f[i][j]+mod-(f[i-k][j-1]*(f[k-1][0]+(k==1))%mod*inv[i]%mod));
			}
		}
	}
	int res = f[n-1][0];
	for(int i = 1;i<n;i++)res = res*i%mod;
	cout << res << endl;
	return 0;
}/*
4 114514199
*/