**TI92P*mainFunction file 05/20/05, 23:05RmontecafÊ¥Zp(n) Func Local d,i 0d For i,1,n If 1/(1+rand())>rand() Then d+1d EndIf EndFor Return d/n EndFuncäåÜ