Of_monad.Applicative_infix
val (>>|) : 'a M.t -> ('a -> 'b) -> 'a M.t
val (*>) : 'a M.t -> 'a M.t -> 'a M.t
val (<*) : 'a M.t -> 'a M.t -> 'a M.t
val (<*>) : 'a M.t -> 'a M.t -> 'a M.t
same as apply
apply