val return : 'a ‑> 'a Base__Sequence.tval bind : 'a Base__Sequence.t ‑> f:('a ‑> 'b Base__Sequence.t) ‑> 'b Base__Sequence.tval map : 'a Base__Sequence.t ‑> f:('a ‑> 'b) ‑> 'b Base__Sequence.tval both : 'a Base__Sequence.t ‑> 'b Base__Sequence.t ‑> ('a * 'b) Base__Sequence.tmodule Open_on_rhs : sig ... end