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