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