make "a 1 repeat 99[seta a-a*#/365 pr(word "n= #+1 ",\ p= form 1-a 0 8)]bye