 
 (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 [lines (.split gt "\n")
        end-of-first-line (count (first lines))
        start-of-last-line (- (count gt) (count (last lines)))]
    (prn end-of-first-line start-of-last-line)
    (filter (fn [[code [gt _] & rest]]
              (> start-of-last-line gt end-of-first-line)) errors)))


           edits (map (comp read-string slurp)  (get-files-sorted (file base-directory "edits/")))
           edits (map (partial run-filters filters)
                      edits ground-truth ocr-res)
           _ (dprintln (first edits))
           errors (->> (mapcat #(map (partial augment-error-code %1 %2) %3) ground-truth ocr-res edits)
                       (mapcat error-code-to-matrix-entries)
                       (filter flavour))
