(load "1_37.sch") ; for cont-fram-rec

(define (d i) (+ (* (- i 1) 2) 1))

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