(define compose
  (lambda (f1 f2)
    (lambda (x)
      (f1 (f2 x)))))