numeric digits 11
p=1
do n=1 to 99
p=p-p*n/365
say"n="n+1", p="format(1-p,,8)
end