module Restart:sig
..end
type'a
t =unit -> 'a GenLabels.gen
type'a
restartable ='a t
include GenLabels.S
val cycle : 'a t -> 'a t
val lift : ('a GenLabels.gen -> 'b) -> 'a t -> 'b
val lift2 : ('a GenLabels.gen -> 'b GenLabels.gen -> 'c) ->
'a t -> 'b t -> 'c