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