mint a,n;{rd(n);for(a=1;n;a*=--n-~n)a*=n;wt(a);}