Fixes to word generation

src/clj/user.clj

@@ -427,3 +427,12 @@
     (filter 
      (fn [[e accounts]] (not= accounts (get jel-accounts e)))
      transaction-accounts)))
+
+
+
+(defn spit-csv [columns data ]
+  (csv/write-csv *out*
+                 (into [(map name columns)]
+                       (for [r data]
+                         ((apply juxt columns) r )))))
+

src/cljc/auto_ap/numeric.cljc

@@ -88,7 +88,7 @@
 
 
 (defn num->words [num]
-  (let [total-cents (int (* 100 num)) 
+  (let [total-cents (int (Math/round (* 100 num))) 
         dollar-num (int (quot total-cents 100))
         cent-num (int (rem total-cents 100))
         dollars (str (words dollar-num) " dollars")