(define make-series
       (lambda (f)
         (define series-func
           (lambda (n)
             (if (= n 1)
                 1
                 (f (series-func (- n 1)) n))))
         series-func))