let do_at_reset () =
  List.iter (fun f -> f()) (List.rev !at_reset_functions)