               (ddiff (conj path index) oitem itm d))) diffs (range 0 (count b))))
 
 (defn vector-diff [path a b diff]
-  (println "vector-diff" a b "@" path " : " diff)
+  (debug "vector-diff" a b "@" path " : " diff)
   (if (= a b)
     diff
     (let [[diffing rest] (split-at (count a) b)

        new-state (transfunc (:state @current-state))]
    (store! new-state)))



(defn vector-diff-same-length [path a b diffs]
  (println "vector-diff-same-length" a b "@" path " : " diffs)
  (reduce (fn [d index]
            (let [itm (get b index)
                  oitem (get a index)]

    d3))

(defn ddiff [path a b diffs]
  (debug "ddiff" a b "@" path " : " diffs)
  (cond
   (= a b) diffs
   (every? vector? [a b]) (vector-diff path a b diffs)
