     (insert "/kikka/:kakka/kurkku" 4)
     (insert "/kikka/kuri/{user/doc}/html" 5)
     (compile)
-    (lookup "/kikka/kakka/kurkku"))
-
-;; =>
-
-["/"
- ["kikka" [2
-           "/" ["k" ["akka/kukka" [3]
-                     "uri/" [:user/doc [".html" [5]]]]
-                :kakka ["/kukka" [4]]]
-           "re/" [#{:path} [6]]]
-  :abba [1]]]
-
-
+    (pretty))


(defn insert
  ([routes]
    (insert nil routes))
  ([node routes]
   (reduce
     (fn [acc [p d]]

      (Trie/linearMatcher matchers)
      (first matchers))))

(defn pretty [matcher]
  (-> matcher str read-string eval))

(defn lookup [^Trie$Matcher matcher path]
  (if-let [match ^Trie$Match (Trie/lookup matcher ^String path)]
