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