1 665c255d 2023-08-04 jrmu (define (fib n)
 2 665c255d 2023-08-04 jrmu   (fib-iter 1 0 0 1 n))
 3 665c255d 2023-08-04 jrmu (define (fib-iter a b p q count)
 4 665c255d 2023-08-04 jrmu   (cond ((= count 0) b)
 5 665c255d 2023-08-04 jrmu 	((even? count) (fib-iter a
 6 665c255d 2023-08-04 jrmu 				 b
 7 665c255d 2023-08-04 jrmu 				 (+ (* 2 q p) (square q))
 8 665c255d 2023-08-04 jrmu 				 (+ (square q) (square p))
 9 665c255d 2023-08-04 jrmu 				 (/ count 2)))
10 665c255d 2023-08-04 jrmu 	(else (fib-iter (+ (