sig val initialize : unit -> unit Lwt.t type t val attach : period:int -> ?device:string -> Nocrypto.Rng.g -> Nocrypto_entropy_lwt.t Lwt.t val stop : Nocrypto_entropy_lwt.t -> unit Lwt.t end