`functor (M : Monad.S) ->
sig
val return : 'a -> 'a M.t
val apply : ('a -> 'b) M.t -> 'a M.t -> 'b M.t
val map : 'a M.t -> f:('a -> 'b) -> 'b M.t
val map2 : 'a M.t -> 'b M.t -> f:('a -> 'b -> 'c) -> 'c M.t
val map3 :
'a M.t -> 'b M.t -> 'c M.t -> f:('a -> 'b -> 'c -> 'd) -> 'd M.t
val all : 'a M.t list -> 'a list M.t
val both : 'a M.t -> 'b M.t -> ('a * 'b) M.t
module Applicative_infix :
sig
val ( <*> ) : ('a -> 'b) M.t -> 'a M.t -> 'b M.t
val ( <* ) : 'a M.t -> unit M.t -> 'a M.t
val ( *> ) : unit M.t -> 'a M.t -> 'a M.t
end
val ( <*> ) : ('a -> 'b) M.t -> 'a M.t -> 'b M.t
val ( <* ) : 'a M.t -> unit M.t -> 'a M.t
val ( *> ) : unit M.t -> 'a M.t -> 'a M.t
end`