Exercise 1.18
************************************************************
1. (compose p1 p2)
(define compose
  (lambda (p1 p2)
    (lambda (arg)
      (p1 (p2 arg)))))
(display ((compose car cdr) '(a b c d)))
(newline)
************************************************************