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