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