                        :in $ ?pname
                        :where [?line :line/pname ?pname]]
                      db project-name)]
+    (println (str "dumped " content))
     (with-open [out-file (io/writer (str "/tmp/" project-name ".csv"))]
       (csv/write-csv out-file
                      (sort #(compare (first %1) (first %2))

  (let [data (with-open [in-file (io/reader source)]
               (doall
                (csv/read-csv in-file)))]
    (doseq [[n o m f t] data]
        @(d/transact conn [(create-line :pname pname :id n :text o)]))))

(defn get-dummy-info []
  (println "====================")

      (println "Database" db-name "already exist, its fine."))
    (println "Connection established!")))

(defn create-line [& {:keys [pname id text male-text female-text translator],
                      :or {male-text "" female-text "" translator ""}}]
  {:db/id (d/tempid :db.part/user)
   :line/pname pname
   :line/num (java.lang.Long. id)
   :line/original text
   :line/male male-text
   :line/female female-text
   :line/translator translator})

(defn get-n-words [n coll]
  (let [sum (atom 0)
