1(library (rnrs mutable-pairs (6)) 2 (export set-car! set-cdr!) 3 (import (primitives set-car! set-cdr!))) 4