(define (iterate n f . bs)
  (let loop ((n n) (b (car bs)) (bs (cdr bs)) (xs '()))
    (if (zero? n) (reverse xs)
      (let ((new-bs (append bs (list (apply f b bs)))))
        (loop (- n 1) (car new-bs) (cdr new-bs) (cons b xs))))))

(define (golden n) (iterate n (lambda (x) (+ 1 (/ x))) 1))

(display (car (reverse (golden 201))))

734544867157818093234908902110449296423351/453973694165307953197296969697410619233826