let fold t ~init ~f = fold_keys t ~init ~f:(fun ac ~key:_ ~data -> f ac data)