for(n in 1:99)write(sprintf("n=%d, p=%.8f",1+n,1-prod(1-1:n/365)),T)