functor (M : Basic2) ->
  sig
    val bind : ('a -> ('p, 'b) M.t) -> ('p, 'a) M.t -> ('p, 'b) M.t
    val pure : 'a -> ('p, 'a) M.t
    val ap : ('p, 'a -> 'b) M.t -> (unit -> ('p, 'a) M.t) -> ('p, 'b) M.t
    val map : ('a -> 'b) -> ('p, 'a) M.t -> ('p, 'b) M.t
    val ( >|= ) : ('p, 'a) M.t -> ('a -> 'b) -> ('p, 'b) M.t
    val replace : 'a -> ('p, 'b) M.t -> ('p, 'a) M.t
    val void : ('p, 'a) M.t -> ('p, unit) M.t
    val ap' : ('p, 'a -> 'b) M.t -> ('p, 'a) M.t -> ('p, 'b) M.t
    val ( <*> ) : ('p, 'a -> 'b) M.t -> ('p, 'a) M.t -> ('p, 'b) M.t
    val ( <~> ) :
      ('p, 'a -> 'b) M.t -> (unit -> ('p, 'a) M.t) -> ('p, 'b) M.t
    val discard_left : ('p, 'a) M.t -> (unit -> ('p, 'b) M.t) -> ('p, 'b) M.t
    val discard_right :
      ('p, 'a) M.t -> (unit -> ('p, 'b) M.t) -> ('p, 'a) M.t
    val repeat : int -> ('p, 'a) M.t -> ('p, 'a list) M.t
    val repeat_ : int -> ('p, 'a) M.t -> ('p, unit) M.t
    val forever : ('p, 'a) M.t -> ('p, 'b) M.t
    val ( >>= ) : ('p, 'a) M.t -> ('a -> ('p, 'b) M.t) -> ('p, 'b) M.t
    val join : ('p, ('p, 'a) M.t) M.t -> ('p, 'a) M.t
    val mcompose :
      ('b -> ('p, 'c) M.t) -> ('a -> ('p, 'b) M.t) -> 'a -> ('p, 'c) M.t
  end