   (fn [request]
     (log/info "--> fetch schema")
     (#'fetch-schema-handler schema request)))
+
+(defn count-all
+  [db protograph]
+  (fn [request]
+    (log/info "--> count all")
+    (#'count-all-handler db protograph request)))
+
+(defn count-label
+  [db]
+  (fn [request]
+    (log/info "--> count label" (get-in request [:params :label]))
+    (#'count-label-handler db request)))
 
 (defn aggregate-query
   [mongo protograph]

   :headers {"content-type" "application/json"}
   :body (json/generate-string schema)})

(defn aggregate-query-handler
  [mongo protograph request]
  (let [query (mapv identity (read-json (:body request)))

  [graph protograph]
  [["/" :home #'home]
   ["/schema/protograph" :schema (fetch-schema protograph)]
   ["/count" :count-all (count-all graph protograph)
    [["/:label" :count-label (count-label graph)]]]
   ["/query/:label" :aggregate-query (aggregate-query graph protograph)]])

(def parse-args
