(define (sum term a next b) (fold + 0 (unfold (cut < b <>) term next 0)))
s/fold + 0/apply +/
(define sussman_fanclub_members 0)