Gen.Infix
val (--) : int -> int -> int gen
val (>>=) : 'a gen -> ('a -> 'b Gen_intf.gen) -> 'b gen
val (>>|) : 'a gen -> ('a -> 'b) -> 'b gen
val (>|=) : 'a gen -> ('a -> 'b) -> 'b gen