         csv (hexapod-stats->csv country-hexapod-quantity (keys hexapod-quantity-country))
         diversity (country-hexapod-quantity->country-diversity country-hexapod-quantity)
         dissapearance-risc (risc-of-dissapearance hexapod-country-quantity countries frequencies)]
-    #_(pprint frequencies)
-    #_(pprint countries)
-    #_(pprint data-files)
-    #_(pprint hexapod-quantity-country)
-    #_(pprint hexapod-country-quantity)
-    #_(pprint country-hexapod-quantity)
-    #_(println csv)
     (println "Diversity of hexapods by countries:")
     (pprint diversity)
     (println "Dissapearance risks:")

     (into {}
           (for [stats hexapod-info
                 :let [stats-words (->> (split stats #"[:,]") (remove blank?) (map trim))
                       quantity (first stats-words)
                       countries (rest stats-words)]]
             [quantity (into #{} countries)]))}))

(defn quantity-country->country-quantity [data]
  (into {}
        (for [[quantity countries] data
              country countries]
          [country quantity])
        ))

(defn hexapod-quantity-country->hexapod-country-quantity [data]
  (into {}

  (:require [clojure.string :refer [split-lines split blank? trim join]]
            [clojure.pprint :refer [pprint print-table]]
            [clojure.java.io :as io]))

(defn parse-hexapod-description [desc]
  (let [lines  (split-lines desc)
