(DEFINE (SUM TERM A NEXT B) (IF (> A B) 0 (+ (TERM A) (SUM TERM (NEXT A) NEXT B)))) (DEFINE (SUM-INT A B) (DEFINE (IDENTITY X) X) (SUM INDENTITY A 1+ B)) (DEFINE (SUM-SQ A B) (SUM SQUARE A 1+ B)) (DEFINE (SQUARE A) (* A A)) (SUM-INT 3 5) (SUM-SQ 3 5)