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

    (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]]]



      (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)]
