Comb<Mint>c;{ll@n,r=0,a[2d5]{1};REP(2*--n){ll@b;r+=++a[b-1]==2;}wt(c.C(n,r-1)*c.C(n,r)/n+!n);}