Ffi.Dh
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