(define compose
  (lambda x
    (if (not (null? x))
        (lambda (y) ((car x) ((apply compose (cdr x)) y)))
        (lambda (y) y))))