; Old version of compose:
; Return a composed function which applies f on g
; Both f and g are supposed to take a single argument.
(define (compose f g)
  (lambda (x)
    (f (g x))))