     (timed #(create-time-tree 2011 2014) "time-tree")
     (timed #(import-topics member-files) "topics")
     (timed #(db/tx-api create-group (load-json "data/groups-2014-05-14.json")) "groups")
-    (doseq [file member-files]
-      (timed #(db/tx-api create-member
-                         (map (fn [data] ( merge {:groupid (extract-group-id file)} data))
-                              (load-json (.getPath file))))
-             (str "members of " (extract-group-id file))))
+    (doseq [file  member-files]
+      (let [coll (map (fn [data] (merge {:groupid (extract-group-id file)} data))
+                              (load-json (.getPath file)))]
+        (timed #(db/tx-api create-member coll) (str "members of " (extract-group-id file)))
+        (timed #(db/tx-api create-member-topics coll) (str "members topics of " (extract-group-id file)))))
     (timed #(db/tx-api create-event  (load-json "data/events-2014-05-13.json")) "events")
     (timed #(db/tx-api create-rsvp (rsvps-with-responses (load-json "data/rsvps-2014-05-13.json"))) "rsvps")
     (timed #(link-credo-venues) "credo venues")))

                               flatten
                               (clojure.core/set))))

(comment (defn -main [& args]
           (timed #(import-topics (member-files "data/members-2014-05-14")) "topics")))

(defn -main [& args]
  (let [member-files

" {}))

(defn create-time-tree [start-year end-year]
 (db/tx-api-single "
    WITH range({start}, {end}) AS years, range(1,12) as months
    FOREACH(year IN years | 
      MERGE (y:Year {year: year})
