(define (f n)
  (define (aux m x y)
    (or
     (and (< n m) y)
     (and (= m 0) (aux 1 y 4))
     (and (= m 1) (aux 2 y (/ 17 4)))
     (aux (+ m 1) y (+ (- 108 (/ 815 y)) (/ 1500 (* y x))))))
  (aux 0 0 0))
(define (p e)
  (print (list e (exact->inexact e))))
(p (f 0))
(p (f 1))
(p (f 2))
(p (f 3))
(p (f 80))