sig type handle type t = eqnameid val seed_value : t val build_gen : t -> handle val new_value : handle -> t end