ll@T;rep(T){double@p;ll@K;wt((1-(K-(K-1)*(1-p))*(1-p)**(K-1))/p+K*(1-p)**(K-1));}