(define ifact-helper (lambda (product count n)
(ifact-helper (* product count) (+ count 1) n))))
; (if (> 1 4) 1 (ifact-helper (* 1 1) (+ 1 1) 4))
; (if (> 2 4) 1 (ifact-helper (* 1 2) (+ 2 1) 4))
; (if (> 3 4) 2 (ifact-helper (* 2 3) (+ 3 1) 4))
; (if (> 4 4) 6 (ifact-helper (* 6 4) (+ 4 1) 4))