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

                            ;;(map detect-aggregate)
                            (seq)))
                    paths))]
    (seq (remove nil? (reduce into (map deref futures))))))

(defn c-get-data
  "Get data from C*."

(defn run-bench
  "Run benchmark."
  [chost eshost path tenant from to]
  (println "Start time:" (tl/format-local-time (tl/local-now) :rfc822))
  (let [{:keys [rollup period]}
        (find-best-rollup (str from) (convert-shorthand-rollups rollups))
        tenant (or tenant "NONE")
        to (if to (Long/parseLong (str to)) (now))
        from (Long/parseLong (str from))]
    (println)
    (println "Cassandra host:    " chost)
    (println "ElasticSearch host:" eshost)
