                       number (Integer/parseInt (first pair))]]
             [descr number]))))
 
-(comment
-  (parse-number->descr
-   "100 В огромных количествах
-75  Много
-10  Мало
-1   Единицы")
-
-  (risc-of-dissapearance
-   {"Аурата сетуньская" {"Вевелония" "В огромных количествах"
-                         "Германия" "Мало"}
-    "Десятилиньята лепая" {"Индия" "Много"
-                           "Парагвай" "Единицы"}}
-   {"Вевелония" 2 "Германия" 3 "Индия" 4 "Парагвай" 5}
-   {"В огромных количествах" 100 "Много" 75 "Мало" 10 "Единицы" 1})
-  (header #{"Аурата сетуньская" "Десятилиньята лепая" "Гортикола филоперьевая"})
-  (body
-   {"Вевелония" {"Аурата сетуньская" "В огромных количествах"
-                 "Десятилиньята лепая" "-"
-                 "Гортикола филоперьевая" "Мало"}
-    "Германия" {"Аурата сетуньская" "В огромных количествах"
-                "Десятилиньята лепая" "-"}}
-   #{"Аурата сетуньская" "Десятилиньята лепая" "Гортикола филоперьевая"})
-  (hexapod-stats->csv
-   {"Вевелония" {"Аурата сетуньская" "В огромных количествах"
-                 "Десятилиньята лепая" "-"
-                 "Гортикола филоперьевая" "Мало"}
-    "Германия" {"Аурата сетуньская" "В огромных количествах"
-                "Десятилиньята лепая" "-"}}
-   #{"Аурата сетуньская" "Десятилиньята лепая" "Гортикола филоперьевая"})
-  (country-hexapod-quantity->country-diversity
-   {"Вевелония" {"Аурата сетуньская" "В огромных количествах"
-                 "Десятилиньята лепая" "-"
-                 "Гортикола филоперьевая" "Мало"}
-    "Германия" {"Аурата сетуньская" "В огромных количествах"
-                "Десятилиньята лепая" "-"}
-    "Индия" {"Аурата сетуньская" "-"
-             "Десятилиньята лепая" "В огромных количествах"}
-    "Парагвай" {"Аурата сетуньская" "-"
-                "Десятилиньята лепая" "В огромных количествах"}})
-  (hexapod-country-quantity->country-hexapod-quantity
-   {"Аурата сетуньская" {"Вевелония" "В огромных количествах"
-                         "Германия" "В огромных количествах"}
-    "Десятилиньята лепая" {"Индия" "В огромных количествах"
-                           "Парагвай" "В огромных количествах"}}
-   #{"Вевелония" "Германия" "Индия" "Парагвай"})
-
-  (quantity-country->country-quantity
-   {"В огромных количествах" #{"Вевелония" "Германия"}
-    "Мало" #{"Камчатка" "Россия"}})
-
-  (hexapod-quantity-country->hexapod-country-quantity
-   {"Аурата сетуньская" {"В огромных количествах" #{"Вевелония" "Германия"}
-                         "Мало" #{"Камчатка" "Россия"}}
-    "Десятилиньята лепая" {"В огромных количествах" #{"Индия" "Парагвай"}
-                           "Мало" #{"Филиппины" "Сибирь"}}})
-
-  (split "semicolon: sdfsd, asdf, sdf" #"[:,]")
-  (split-lines "asdf\n\nsemicolon: sdfsd, asdf, sdf")
-
-  (parse-hexapod-description
-   "Аурата сетуньская
-
-В огромных количествах: Вевелония, Германия
-Мало: Камчатка, Россия")
-
-  )
-
-
-
 (defn -main
-  "I don't do a whole lot ... yet."
   [& args]
   (let [path "resources"
         frequencies (parse-number->descr (slurp (str path "/" "Frequencies.txt")))

     (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 {}

        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)]
    (println "Diversity of hexapods by countries:")
    (pprint diversity)
    (println "Dissapearance risks:")
