functor (M : Monad) ->
  sig
    type 'a m = 'a M.t
    module Infix :
      sig
        val ( >>= ) : 'a m -> ('a -> 'b m) -> 'b m
        val ( >> ) : 'a m -> 'b m -> 'b m
      end
    val join : 'a m m -> 'a m
    val liftM : ('a -> 'b) -> 'a m -> 'b m
    val liftM2 : ('a -> 'b -> 'c m) -> 'a m -> 'b m -> 'c m
    val fmap : ('a -> 'b) -> 'a m -> 'b m
    val sequence : 'a m list -> 'a list m
    val sequence_ : 'a m list -> unit m
    val mapM : ('a -> 'b m) -> 'a list -> 'b list m
    val mapM_ : ('a -> 'b m) -> 'a list -> unit m
    val foldM : ('a -> 'b -> 'a m) -> 'a -> 'b list -> 'a m
  end