(define (cont-frac n d k)
    (define (iter i acc)
      (let ((acc (/ (n i) (+ (d i) acc)))
            (i (- i 1)))
        (if (> i 0)
            (iter i acc)
            acc)))
    (iter k 0))

(define (e k)
  (+ 2 (cont-frac
    (lambda (n) 1.0)
    (lambda (d)
      (if (= (remainder d 3) 2)
        (* 2 (/ (+ d 1) 3))
        1
        )
      )
    k)
  ))