let
size t = fold ~f:(
fun
~key ~data ans
->
ans + 1) ~init:0 t