mint@n,a=1;for(;n;--n)a*=2n*n-n;wt(a);