Module BasePriv

module type S = sig ... end
val get_priv : unit -> (module S)