let fold2_exn xs ys ~init ~f = fold2i_exn xs ys ~init ~f:(const (const f))