let available_mode_names () =
  Hashtbl.fold (fun name _ acc -> name :: acc) available_modes []