procedure main()
every write("n=",(n:=(p:=1)to 99)+1,", p=",1-(p-:=p*n/365.)+5e-9?tab(11))
end