let get_mode name = try Hashtbl.find available_modes name with Not_found -> failwith (Printf.sprintf "Mode %s unknown." name)