let
assoc_to_keys h =
Hashtbl
.fold (
fun
a b c
->
a::c) h []