module type Parameters = sig .. end
sig
end
val prng : Random.State.t
Random.State.t
val destroy_probability : float
float