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