sig
  type 'a t
  val create : (unit -> 'a Deferred.t) -> 'a Throttle.Job.t
  val result : 'a Throttle.Job.t -> 'a Throttle.outcome Deferred.t
end