 
 (def undefined "—")
 
-(def beetles-names ["Ауата сетуньская" "Десятилиньята лепая" "Семипунктата Коха" "Популий грыжомельский" "Гортикола филопетьевая"])
+(def subject-names ["Ауата сетуньская" "Десятилиньята лепая" "Семипунктата Коха" "Популий грыжомельский" "Гортикола филопетьевая"])
 
-(def beetles-matrix  [["Наличие бомбурий",         ["Да",      "Да",        "Нет",       "Да",    "Нет"]],
+(def subject-matrix  [["Наличие бомбурий",         ["Да",      "Да",        "Нет",       "Да",    "Нет"]],
                       ["Количество клептиконов",   ["1",       "1",         "0",         "3",     "5"]],
                       ["Цвет велория",             ["Красный", "Оранжевый", "Оранжевый", "—",     "Синий"]],
                       ["Наличие пумпеля",          ["Нет",     "Да",        "Да",        "—",     "—"]],

          (let [answer-number (Integer/parseInt user-choise)]
            (if-let [answer (indexed-answers answer-number)]
              answer
              (throw (IllegalStateException. (str "Subject don't corresponds any of options for feature: " feature)))))
          (catch NumberFormatException e
            (do (println "Please, choose right option from answers. Try one more time")
                (ask-question answers))))
        ))))

(defn answers [tree]

        (recur (next current-answers) (inc index) (assoc indexed-answers index ans))))
    ))

(declare ask-question)

(defn repeat-question [answers]
  (println "Please, choose right option from answers. Try one more time")
  (ask-question answers))

(defn ask-question [answers]
  (let [feature (first (first answers))]
    (println "What is the value of feature: " feature "?")
