(cond-expand (chicken-5 (import r7rs)) (else)) (import (scheme base) (cuprate) (srfi 225) (cuprate rewriters)) (test-set! 'verbose? #t) (include "impl.scm")