1 2 3
(import (algebraic-structures semigroup) (only (algebraic-structures private number product))) (module (algebraic-structures number product semigroup) = ((algebraic-structures semigroup) (algebraic-structures private number product)))