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