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