let
fold_packages f =
Hashtbl
.fold f package_index