(define make-series
       (lambda (f)

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

         series-func))