p=1;2.upto(100){printf"n=$it, p=%.8f\n",1-(p*=1-~-it/365)}