Module Prime_seq.Infix

val (>>=*) : 'a t -> ('a -> 'b t) -> 'b t

xs >>=* f is Seq.flat_map f xs.

val (>|=*) : 'a t -> ('a -> 'b) -> 'b t

xs >|=* f is Seq.map f xs.