(define a 0)
(define b a)
(set! a 1)
b ;=>0

(define a (cons 1 2))
(define b a)
(set-car! a 2)
(car b) ;=>2