sig
  type t
  val create : int -> Maki.Limit.t
  val acquire : Maki.Limit.t -> (unit -> 'a Lwt.t) -> 'a Lwt.t
  val j : unit -> Maki.Limit.t
  val set_j : int -> unit
end