document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. (defn as-currency
  2.   "Money amounts are transmitted as \\"$2.44\\".
  3.  Parse this and return a numeric type."
  4.   [currency-amount]
  5.   (let [negative? (re-find #"^[^\\d]*-" currency-amount)
  6.         cleaned-amount (str/replace currency-amount #"^[\\d\\.]" "")]
  7.     (bigdec
  8.      (str (when negative? "-") cleaned-amount))))
');