        (let [dim-x# (dim ~(first xs))]
          (loop [i# 0 acc# (~acctype ~init)]
            (if (< i# dim-x#)
-             (recur (inc i#) (~acctype (~f acc# (~etype (map-entries-i ~vtype ~etype ~g i# ~@xs)))))
+             (recur (inc i#) (~acctype (~f acc# (~etype (map-entries-i ~vtype ~g i# ~@xs)))))
              acc#)))
        (dragan-says-ex DIMENSIONS_MSG {:xs (map str ~xs)}))
     `(dragan-says-ex "Vector foldmap supports up to 4 vectors.")))

       (let [dim-x# (dim ~(first xs))]
         (loop [i# 0 acc# (~acctype ~init)]
           (if (< i# dim-x#)
             (recur (inc i#) (~acctype (~f acc# i# (~etype (map-entries-i ~vtype ~etype ~g i# ~@xs)))))
             acc#)))
       (dragan-says-ex DIMENSIONS_MSG {:xs (map str ~xs)}))
    `(dragan-says-ex "Vector foldmap supports up to 4 vectors.")))

       (let [dim-x# (dim ~(first xs))]
         (loop [i# 0 acc# (~acctype ~init)]
           (if (< i# dim-x#)
             (recur (inc i#) (~acctype (~f acc# (~etype (map-entries-i ~vtype + i# ~@xs)))))
             acc#)))
       (dragan-says-ex DIMENSIONS_MSG {:xs (map str ~xs)}))
    `(dragan-says-ex "Vector fold supports up to 4 vectors.")))
