module Random:sig..end
val init_bak : unit -> stringmake possible to init with the same seed again
val bak_init : string -> unitinit using a backup seed
val prob_take : ('a -> float) -> 'a list -> 'aprobabilistic choice
val prob_extract : ('a -> float) -> 'a list -> 'a * 'a listextract one element from the list and also return the list without this element
module Int:sig..end
module Float:sig..end
module Int32:sig..end
module Int64:sig..end
module List:sig..end
module Array:sig..end