for(p=8;n++<scale=99;){print"n=",n+1,", p=0";1-(4/A^8+p*=1-n/365)/scale=8}