(define (compose f g)
  (lambda (x)
    (f (g x))))

(define foo (compose car cdr))