sig
class rng :
string ->
object method genrand : int32 method max : int32 method min : int32 end
module type FILE = sig val name : string end
module Dev_Urandom : FILE
module IntSource :
functor (File : FILE) ->
sig type t = int val genrand : unit -> t val min : t val max : t end
module Int32Source :
functor (File : FILE) ->
sig type t = int32 val genrand : unit -> t val min : t val max : t end
end