Код Ревью

Сравни свои решения

    (define (make-f)
  (let ((prod 1))
    (lambda (x)
      (set! prod (* prod x))
      prod)
 ))