   [& args]
   (let [[options args banner]
         (cli args
-             ["-h" "--help" "Show help" :default false :flag true]
-             ["-n" "--nworkers" "The amount of worker threads to start" :default (.availableProcessors (Runtime/getRuntime)) :parse-fn #(Integer. %)]
-             ["-m" "--method" "The R method and queue name to execute" :default "echo"])
+          ["-h" "--help" "Show help" :default false :flag true]
+          ["-n" "--nworkers" "The amount of worker threads to start" :default (.availableProcessors (Runtime/getRuntime)) :parse-fn #(Integer. %)]
+          ["-m" "--method" "The R method and queue name to execute" :default "echo"])
         conn (rmq/connect)
         qname (format "task.%s" (:method options))]
     (when (or (:help options))

            [langohr.channel   :as lch]
            [langohr.queue     :as lq]
            [langohr.consumers :as lc]
            [langohr.basic     :as lb]))

(def ^{:const true}
  exchange-name "")

      (System/exit 0))
    (dotimes [n (:nworkers options)]
      (let [ch (lch/open conn)]
        (log/debug (format "[main] Connected worker %d. Channeld id: %d for channel %s" (inc n) (.getChannelNumber ch) qname))
        (lq/declare ch qname :exclusive false :auto-delete true)
        (start-consumer conn ch qname)))
      (while true (Thread/sleep 100))
