(define make-general-series
       (lambda (f g)          ; f is the func to produce the series
         (define series-func  ; g is the func to produce each term in the series
           (lambda (n)
             (if (= n 1)
                 (g 1)
                 (f (series-func (- n 1)) (g n)))))
         series-func))