Applicative_id.Applicative_infix
val (<*>) : ( 'a -> 'b ) -> 'a0 -> 'b0
val (<*) : 'a -> unit -> 'a0
val (*>) : unit -> 'a -> 'a0
val (>>|) : 'a -> ( 'a0 -> 'b ) -> 'b0