      errors (exit 1 (error-msg errors)))
     ;; Execute
     (let [[chost eshost path tenant from to] arguments]
-      (run-bench chost eshost path tenant from to))))
+      (run-bench chost eshost path tenant from to)))
+  (System/exit 0))

  (println "Getting paths form ElasticSearch...")
  (let [paths (time (doall (lookup host tenant path)))]
    (println "Number of paths:" (count paths))
    paths))

;;------------------------------------------------------------------------------

    (println "Getting data form Cassandra...")
    (let [data (time (doall (par-fetch session fetch! paths tenant rollup
                                       period from to)))]
      (println)
      data)))

;;------------------------------------------------------------------------------
