                    (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 [leafs (t-get tree-impl path)]
+            (swap! processed + leafs)
+            (when-not @clog/print-log?
+              (prog/tick-by leafs)))
           (let [spath (path-list2str path)]
-            (if (seq path)
-              (clog/info (str "Checking path: " spath)))
+            (when (seq path)
+              (swap! processed inc)
+              (swap! non-leafs inc)
+              (when-not @inspecting?
+                (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)

      (tp-get-data [this]
        @empty-paths)
      (tp-show-stats [this]
        ))))

(defn- tree-walker
  "Tree walker."

        (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."
