       (tp-get-data [this]
         @empty-paths)
       (tp-show-stats [this]
-        ))))
+        (let [empty-count (count @empty-paths)]
+          (log/info (format "Stats: processed %s, non-leafs: %s, empty: %s"
+                            @processed @non-leafs empty-count))
+          (newline)
+          (println "Stats:")
+          (println "  Processed: " @processed)
+          (println "  Non-leafs: " @non-leafs)
+          (println "  Empty:     " empty-count))))))
 
 (defn- tree-walker
   "Tree walker."

                   (partial add-path-to-tree tree-impl)))
      (tp-process-path [this path]
        (if (t-path-leaf? tree-impl path)
          (when-not @clog/print-log?
            (prog/tick-by (t-get tree-impl path)))
          (let [spath (path-list2str path)]
            (if (seq path)
              (clog/info (str "Checking path: " spath)))
            (when (t-path-empty? tree-impl path)
              (log/debug (str "Path '" spath "' is empty"))
              (t-delete-path tree-impl path)

        (when-not @clog/print-log?
          (prog/done))
        (let [empty-paths (tp-get-data processor)]
          (when @inspecting?
            (clog/info (str "Found " (count empty-paths) " empty paths")))
          empty-paths)
        (finally
          (when-not @inspecting?
            (tp-show-stats processor)))))))

(defn- remove-empty-paths-processor
  "Empty path removal processor."
