sig
  val ( <*> ) :
    ('-> 'b) Applicative_intf.S.t ->
    'Applicative_intf.S.t -> 'Applicative_intf.S.t
  val ( <* ) :
    'Applicative_intf.S.t ->
    unit Applicative_intf.S.t -> 'Applicative_intf.S.t
  val ( *> ) :
    unit Applicative_intf.S.t ->
    'Applicative_intf.S.t -> 'Applicative_intf.S.t
end