let of_list l = Hashtbl.of_alist (List.map l ~f:(fun k -> k, ()))