type 'a t
=
{
mutable run : 'a ‑> unit;
execution_context : Execution_context.t;
mutable prev : 'a t;
mutable next : 'a t;
}