#define MD 998244353
ll@N,L=2N+1;Mint A[L][L]{{1}},z=0;Comb<Mint>c;rep(i,1,L)REP(j,1,L-i)A[i][j]=A[i-1][j-1]*((i-1)*(j-1)+1)+(i>2?A[i-2][j]*c.C(i-1,2):z)+(j>2?A[i][j-2]*c.C(j-1,2):z);rep(i,L)wt(A[i][L-i-1]);