let
fold2_exn t1 t2 ~init ~f =
List
.fold_left2 t1 t2 ~init ~f