sig
  type t
  type 'a u
  val call : ('-> 'Uwt.C_worker.u -> Uwt.C_worker.t) -> '-> 'Lwt.t
end