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