                              [a (second (first e))] [(inc a) (second (last e))]]
                :many-to-one [[7 (to-code-number (nth t2 b))]
                              [(first (first e)) b] [(first (last e)) (inc b)]]))) nedits]
-        _ (prn "extr " ext "res" (first res))]
+        _ (dprintln "extr " ext "res" (first res))]
     res))
 
 (def extraction-list

  (let [res (let [bar-count (lookup-bar (case type
                                :one-to-many (nth t1 a)
                                :many-to-one (nth t2 b)))
                  _ (prn "bar-count " bar-count (nth t1 a))]
    (loop [[[ia ib] & is] insdel acc 0 ret []]
      (if ia
        (let [bc (lookup-bar (case type
                               :one-to-many (nth t2 ib)
                               :many-to-one (nth t1 ia)))
#_#_              _ (prn "bc " bc (nth t2 ib)
                     "acc " acc " ret " ret
                     (>= (+ acc bc) bar-count)
                     "ia ib " ia ib)]

    (doall (pmap (fn [gt ocr]
                   (let [filename (file base-directory
                                        "edits/" (.getName gt))]
                     (dprintln "error-counts for " filename)
                     (spit filename (pr-str (error-codes (slurp gt) (slurp ocr))))))
                 gts ocr-res))))

