A/B:-A<100,C is B-B*A/365,D is A+1,format("n=~w, p=~8f
",[D,1-C]),D/C.
m:-1/1.