#lang scheme/base

(require scheme/mpair)

(provide (rename-out [set-mcdr! set-cdr!]
                     [set-mcar! set-car!]))