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