(define a (cons 1 2)) (define b (list a 3)) (set-car! (car b) 4) (cdar b)