ll@N;double@R;wt(100(1-(1-R)**N)/(1-R));