ll@n,z=1,c[21]{};rep(i,n){ll@a;z=z*~i/-++c[a];}wt(z);