type t
val create : prime:[ `hex of string ] ‑> generator:[ `hex of string ] ‑> t
val generate_parameters : prime_len:int ‑> generator:int ‑> ?progress:(int ‑> int ‑> unit) ‑> unit ‑> t