sicp 2.4

sicp_2_4

(define (cons x y)
(lambda (m) (m x y)))
(define (car z)
(z (lambda (p q) p)))
(define (cdr z)
(z (lambda (p q) q)))

(car (cons 1 2))

(car (cons 3 5))

(cdr (cons 1 2))

(cdr (cons 3 5))