let globactions : (unit -> unit) list ref = ref []