benchmarks/contract.ss
#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")))