(define-library (srfi 111)
  (import (scheme base))

  (define-record-type box-type (box value) box?
                      (value unbox set-box!))

  (export box box?
          unbox set-box!))