Extend Function Scheme

See merge and distrib for reference.
An extend function is a pretty handy function for doing some advance list procedures.

(define (extend L E)
  (merge L (distrib L E))
  )