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