(do((a 1 b)(b 0 c)(c 1(1+(* a c))))((=(mod c 99)61)(prin1 c)))