module Random:sig..end
val init_bak : unit -> stringval bak_init : string -> unitval prob_take : ('a -> float) -> 'a list -> 'aval prob_extract : ('a -> float) -> 'a list -> 'a * 'a listmodule Int:sig..end
module Float:sig..end
module Int32:sig..end
module Int64:sig..end
module List:sig..end
module Array:sig..end