let fold ~f ~init t = Hashtbl.fold t ~init ~f:(fun ~key ~data:_ acc -> f acc key)