method
to_list =
Hashtbl
.fold (
fun
a b current_list
->
(a, b) :: current_list) current []