 (defn generate-id
   "Generates random id"
   []
-  (apply str (take 16 (repeatedly #(char (+ (rand 26) 65))))))
+  (apply str (take 16 (repeatedly #(char (+ (rand 26) 97))))))
 
 (def worker-id (generate-id))
 


(defn -main
  [& args]
  (with-open [conn (rmq/connect)]
    (let [ch (lch/open conn)]
      (lq/declare ch jobs-q {:durable true :auto-delete false})
      (le/fanout ch events-x {:durable false :auto-delete false})
      (lb/qos ch 1)
      (println "Worker" worker-id "Waiting for jobs")
      (lc/blocking-subscribe ch jobs-q on-message))))

  "Generates random int between a (inclusive)
  and b (exclusive)"
  [a b]
  (+ a (rand-int (- b a))))

(defn env
  "Gets the environment variable specified by key, or
  dft if the variable does not exist."
  [key dft]
  (or (System/getenv key) dft))

(defn print-job-info
  "Prints info"
