(cond-expand
  (chicken-6
    (import (scheme base)
            (only (srfi 1) unfold)
            (srfi 4)
            (srfi 158)
            (test)
            (only (chicken port) with-input-from-string)))
  (else
    (import scheme)
    (import test)
    (import (srfi 158))
    (import (only (srfi 1) unfold))
    (import srfi-4)
    (import (only (chicken port) with-input-from-string))))

(cond-expand
  (chicken-6)
  (else
    (include "../srfi-158/r7rs-shim.scm")))
(include "../srfi-158/chicken-test.scm")