M.Apply
A : Interface.APPLICATIVE
AA : sig ... end
module V : sig ... end
val suite : string -> T.test T.suite