     (go (while (<! control-chan) true))))
 
 (defn load-movies []
-  (ensure-transformed-movies "data/movies.list.gz" "data/movies.transformed")
   (let [work-chan    (chan 128)
         tx-data-chan (chan 1)
         tx-chan (batch tx-data-chan 50)

    (async/<!! control-chan)))

(defn -main [& args]
  (let [system (system/start (system/system))]
    (alter-var-root #'conn (constantly (:conn (:db system))))
    (time (do

    (async/<!! control-chan)))

(defn load-actors []
  (load-actors-from "data/actors.transformed"))

(defn load-actresses []
  (load-actors-from "data/actresses.transformed"))

(defn load-genres []
  (let [work-chan    (chan 128)
        tx-data-chan (chan 1)
        tx-chan (batch tx-data-chan 50)
