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

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

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