1 (defun sum-iter (term a next b)
2   (defun iter (a result)
3     (if (> a b)
4 	result
5       (iter (funcall next a)
6 	    (+ (funcall term a) result))))
7   (iter a 0))