incr n
set p 0
while \$n<100 {puts [format "n=[incr n], p=%.8f" [set p [expr $p+(1-$p)*~-$n/365.]]]}