#lang scheme/unit

(require "test-sig.ss")
(require "thing-sig.ss")
(import thing^)
(export test^)

(define (test)
  (if (thingy? (foo-thing 23 42))
      (display "Yea\n")
      (display "Nay\n")))