sig
  type key
  type t
  val create : rate:int -> max:int -> n:int -> Uwt_throttle.S.t
  val wait : Uwt_throttle.S.t -> Uwt_throttle.S.key -> bool Lwt.t
end