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