ll@n,@a[n],@b[n];
double d[n];
rep(i,n)d[i]=(1.-b[i])/a[i];
sortA(n,d,a,b);
Mint z,x=1;
rep(i,n)z+=a[i]*x,x*=b[i];
wt(z);