sig val initialize : unit -> unit Lwt.t val sources : unit -> Entropy.source list option val attach : Entropy.t -> Nocrypto.Rng.g -> Entropy.token Lwt.t end