1.39 Exercise 1.39

(define (tan-cf x k)
  (define (numer i)
    (if (= i 1) x (* (square x) -1.0)))
  (define (denom i)
    (- (* 2.0 i) 1.0))
  (cont-frac numer denom k))