let
fold_cache f x =
Hashtbl
.fold f cache x