(define (cons left right)
   (lambda (msg)
     (cond ((equal? msg 'car) left)
	   ((equal? msg 'cdr) right))))

(define (car pair)
   (pair 'car))

(define (cdr pair)
   (pair 'cdr))