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 )))))
+