PolyMap
module type ValueS = sig ... end
module type Tag = sig ... end
module Make : functor (Tag : Tag) -> sig ... end