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