(library (rnrs mutable-pairs (6))
  (export set-car! set-cdr!)
  (import (core primitives)))