user> (require '[clojure.contrib.pprint :as p])
nil
user> (def to-english (partial p/cl-format nil "~@(~@[~R~]~^ ~A.~)"))
#'user/to-english
user> (to-english 1234567890)
"One billion, two hundred thirty-four million, five hundred sixty-seven thousand, eight hundred ninety"
user>
<pre>
user> (require '[clojure.contrib.pprint :as p])
nil
user> (def to-english (partial p/cl-format nil "~@(~@[~R~]~^ ~A.~)"))
#'user/to-english
user> (to-english 1234567890)
"One billion, two hundred thirty-four million, five hundred sixty-seven thousand, eight hundred ninety"
user>
</pre>