let
fold t ~init ~f = fold_left t ~f ~init