(load "1.37.txt") ; for cont-frac

(define (n i) 1.0)
(define (d i)
  (if (= (remainder i 3) 2)
      (/ (* 2.0 (+ i 1)) 3.0)
      1.0))

(define e (+ 2
             (cont-frac n d 100)))