sig val run : ((unit -> unit) -> unit) Stdlib.ref end