test/functor/functor.ss
#lang planet chongkai/sml

structure H1 = H(B1)
structure H2 = H(B2)