sig
  type 'a t = { run : 'a -> unit; execution_context : Execution_context.t; }
end