#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)))))