#!r6rs
(library (srfi :111) (export box box? unbox set-box!) (import (srfi :111 boxes)))