각 단계에 이름을 붙이고 흐름을 조합한다.

(begin
  (define (enumerate-interval low high)
    (if (> low high)
        '()
        (cons low (enumerate-interval (+ low 1) high))))
  (define (filter predicate items)
    (cond ((null? items) '())
          ((predicate (car items))
           (cons (car items) (filter predicate (cdr items))))
          (else (filter predicate (cdr items)))))
  (define (map procedure items)
    (if (null? items)
        '()
        (cons (procedure (car items))
              (map procedure (cdr items)))))
  (define (accumulate operation initial items)
    (if (null? items)
        initial
        (operation (car items)
                   (accumulate operation initial (cdr items)))))
  (define (square value) (* value value))
  (accumulate + 0
    (map square
      (filter odd? (enumerate-interval 1 8)))))