(for n(= p 1)99(prn"n="(+ n 1)", p=0"(num(- 1(-- p(*(/ n 365)p)))8 t)))