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