module Random:sig
..end
val init_bak : unit -> string
make possible to init with the same seed again
val bak_init : string -> unit
init using a backup seed
val prob_take : ('a -> float) -> 'a list -> 'a
probabilistic choice
val prob_extract : ('a -> float) -> 'a list -> 'a * 'a list
extract 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