      (recur (first (:children node)) (inc acc)))))
 
 (defn node->id
-  ([node] (node->id node (base)))
-  ([node base]
+  [node base]
    (let [length (depth node)]
      (loop [{:keys [children]
              {:keys [path site counter]} :triple} node

            (- id-2nd other-2nd)
            (if-not (= id-3rd other-3rd)
              (- id-3rd other-3rd)
              (recur (inc level)))))))))))

  (:refer-clojure :exclude  [compare])
  (:require [lseq-tree.base :refer [base bit sum]]
            [lseq-tree.lseq-node :refer [node]]
            [lseq-tree.triple :refer [triple]]
            [lseq-tree.util :refer [pow]]))

(defrecord ID [digit site counter])

