sig
  val ( -- ) : int -> int -> int Sequence.t
  val ( --^ ) : int -> int -> int Sequence.t
  val ( >>= ) : 'a Sequence.t -> ('a -> 'b Sequence.t) -> 'b Sequence.t
  val ( >|= ) : 'a Sequence.t -> ('a -> 'b) -> 'b Sequence.t
  val ( <*> ) : ('a -> 'b) Sequence.t -> 'a Sequence.t -> 'b Sequence.t
  val ( <+> ) : 'a Sequence.t -> 'a Sequence.t -> 'a Sequence.t
end