1 (defun my-cons (x y)
2   (lambda (m)
3     (cond ((= m 0) x)
4 	  ((= m 1) y)
5 	  (t (error "Argument not 0 or 1 -- CONS ~S~%" m)))))
6 (defun my-car (z)
7   (funcall z 0))
8 (defun my-cdr (z)
9   (funcall z 1))
10 
11 (defun my-cons (x y)
12   (lambda (m) (funcall m x y)))
13 (defun my-car (z)
14   (funcall z (lambda (p q) p)))
15 (defun my-cdr (z)
16   (funcall z (lambda (p q) q)))