Lehmer
type t = private int
val of_int : int -> t
val scramble : int -> t
val next : t -> t
val to_unit : t -> float
type state
val make : int -> state
val int : state -> int -> int
val float : state -> float -> float