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

(define (tan-cf x k)
  (define (n i)
    (if (= i 1)
        x
        (- (* x x))))
  (define (d i) (- (* 2.0 i) 1.0))
  (cont-frac n d k))