Outputting roman numerals in Clojure

gistfile1.clj

(def *all-roman* ["M" "CM" "D" "CD" "C" "XC" "L" "XL" "X" "IX" "V" "IV" "I"])
(def *all-decimal* [1000 900 500 400 100 90 50 40 10 9 5 4 1])

(defn output-as-roman
 ([n] (output-as-roman n *all-roman* *all-decimal*))
 ([n rx nx]
    (let [roman (first rx) divisor (first nx)
          remainder (mod n divisor) quotient (quot n divisor)]
      (str (apply str (repeat quotient roman))
           (if (> remainder 0) (output-as-roman remainder (rest rx) (rest nx)))))))