(import (algebraic-structures semigroup)
        (only (algebraic-structures private string)))
(module (algebraic-structures string semigroup) = ((algebraic-structures semigroup) (algebraic-structures private string)))