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