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

    "path = ? AND tenant = ? AND rollup = ? AND period = ? "
    "AND time >= ? AND time <= ? ORDER BY time ASC;")))

(defn par-fetch [session fetch! paths tenant rollup period from to]
  (let [futures
        (doall (map #(future
                       (->> (alia/execute

    (println "Period:" period)
    (println)
    (let [paths (es-get-paths eshost path tenant)
          data (c-get-data chost paths tenant rollup period from to)
          std-rdata (std-reducer data)
          flatten-rdata (flatten-reducer data)
          rflatten-rdata (rflatten-reducer data)
          std-cdata (std-cleaner std-rdata)
          r-cdata (r-cleaner std-rdata)]))
  (println "Finish time:" (tl/format-local-time (tl/local-now) :rfc822)))

;;------------------------------------------------------------------------------
;; Command line
