sum(printf(?t,"n=~d, p=~,8f ",n+1,1-p:p-p*n/365),n,p:1,99);