ll@n;double@p,@q,z=p;rep(n-1)z=p+q*q*z/(1-z*p);wt(z);