 
 (defn gen-statistics-for-base-directories [bd]
   (into {} (for [d bd]
-             (do (prn "for base directory " d)
+             (do (dprintln "for base directory " d)
                  [d (into {}
                           (for [[n f] flavour-list]
-                            (do (prn "gen-statistics d n" d n)
+                            (do (dprintln "gen-statistics d n" d n)
                                 [n (apply generate-statistics d f)])))]))))
 
 

  (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)]

                           (range (dec (count ocr)) 0 -1))
        starting (or (last starting) 0)
        ending (or (last ending) (count ocr))]
    (dprintln starting ending)
    (filter (fn [[code [_ ocr] & rest]]
              (> ending ocr starting)) errors)))

