   ;; TODO - Symetric testings with test.checks
   (prn (encode-with (tree->encoder t) [:a :b]))
   (prn (encode [:a :b]))
-  (prn (decode-bits t [0 1 0 0 1 1]))
+  (prn (decode t [0 1 0 0 1 1]))
   )
 
 

    (= 1 (first bits)) (recur rhs (rest bits))
    ))

(defn ^:private decode-bits
  [huffman-tree inputs]
  (loop [bits inputs
         result []]

  (get-bits-impl huffman-tree []))

(defn tree->encoder
  "Create a decoder with memoization"
  [huffman-tree]
  (memoize #(get-bits huffman-tree %)))

