(define product-of-range
  (lambda (high low product) ;multiplies high down to low, times product
    (if (= high low)
        (* high product)
        (product-of-range high (+ low 1) (* low product)))))

(define factorial
  (lambda (n)
    (product-of-range n 1 1)))