   (do
     (println "Hello, Bulky World!")
     (mount/start)
-    (run)
+    (time (run))
     (mount/stop)))

      (http/put index-url {:headers {:content-type "application/json"}
                           :body (json/generate-string index-settings)})
      (let [eids (get-eids-by-type db :go-term/id)
            step 100
            batches (partition step step [] eids)]
        (doseq [batch batches]
          (run-index-batch db batch))))))

(defn -main
  "I don't do a whole lot ... yet."

(ns wb-es.bulk.core
  (:gen-class)
  (:require [clj-http.client :as http]
            [clojure.core.async :refer [>! <! >!! <!! go chan buffer close!]]
            [cheshire.core :as json]
            [datomic.api :as d]
            [mount.core :as mount]
