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