         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:")

                      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")))

  (: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)
