(import (algebraic-structures functor)
        (only (algebraic-structures private list)))
(module (algebraic-structures list functor) = ((algebraic-structures functor) (algebraic-structures private list)))