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