#lang scheme (require (planet cce/scheme:6:3/planet) (planet schematics/schemeunit) (prefix-in ra: (this-package-in main)) (prefix-in ls: (this-package-in contract))) (provide run-contract-benchmark) (define (run-contract-benchmark) (define title "Contract v. Un benchmark") (define module-path (this-package-version-symbol contract)) (define prefix1 "un") (define prefix2 "co") (include (file "private/ra-list-common.source")))