         (recur (inc n) F)))))
 
 (defn m [ds i j D]
-  (let [v (v ds i j D), r (r ds i j D)]
+  (let [v (v ds i j D)
+        r (r ds i j D)]
     (when (and v r) (* v r))))
 
 (defn chain-end [ds D i j]

  (indices [ds] (iterator-seq (.indices ds)))
  (s [ds i D] (when (.definesOp ds i D) (.op ds i D)))
  (v [ds i j D] (when (.definesV ds i j D) (.v ds i j D))))

(deftype DSymbol [dim size s# v#]
  IDSymbol

(defprotocol IPersistentDSymbol
  (dsconj [_ new])
  (dsdisj [_ old])
  (glue [_ i D E])
  (unglue [_ i D]))

(extend-type DelaneySymbol
  IDSymbol
