Scm> (define (square x) (* x x)) square scm> (define (add-one x) (+ x 1)) add-one scm> (define (double x) (* x 2)) double scm> (define composed (compose-all (list double square add-one))) composed scm> (composed 1) 5 scm> (composed 2) 17