 
 (comment (map #(exp-backoff % {}) (range 10)))
 
-;;;; Implementation
+;;;; Admin
 
 (def qkey "Prefixed queue key" (memoize (partial car/key :carmine :mq)))
 

  (clear-queues {} "myq")
  (queue-status {} "myq")
  (let [mid (wcar {} (enqueue "myq" "msg"))]
    (message-status {} "myq" mid))

  (wcar {} (dequeue "myq")))


       (->> (car/get      (qk :eoq-backoff?))  (car/parse-bool))
       (->> (car/get      (qk :ndry-runs))     (car/parse-long))))))

;;;; Implementation

(defn message-status
  "Returns current message status, e/o:
    :queued            - Awaiting (re)handling.
