#define MD 998244353
Comb<Mint>c;ll@n,@x[n],@y[n],a=0;sortA(n,x);rsortA(n,y);a+=x[0..n-1]<y[0..];wt(c.fac(n)/c.C(n,a));