#lang scheme/unit

(require "a-sig.ss"
         "b-sig.ss"
         "test-sig.ss")

(import (prefix a: a^) (prefix b: b^))
(export test^)

(define (test)
  (display (format "Using both foo in a: ~a and foo in b: ~a becomes ~a~n"
                   (a:foo)
                   (b:foo)
                   (- (a:foo) (b:foo)))))