#lang scheme/base (require "c.ss") (require scheme/unit) (define-values/invoke-unit/infer both@)