 
 (run (route {:get
              {"/foo" {"/bing" bing}
+              "/slow-thing"
               "/" home}}))

(defn route [mappings]
  "TODO: add regex support, too, cuz we should."
  (let [route** (fn route* [mappings full-path path in-chan out-chan]
                  (loop [prefixes (keys mappings)]
                    (if (empty? prefixes)
                      (go (>! out-chan 404)
                          (>! out-chan :end))

           (java.io IOException))
  (:require [clojure.core.async :as async :refer [go go-loop >! <! <!! >!! chan]]
            [clojure.string :as string :refer [join split]]))

(def *buffer* (ByteBuffer/allocate 16384)) ;; 16k...

