                       ["Цвет лемпелей",            ["Жёлтый",  "Жёлтый",    "Жёлтый",    "Белый", "Белый"]],
                       ["Наличие пильских трапков", ["Да",      "Да",        "Да",        "Да",    "Да"]]])
 
+
+;; Domain logic
 (defn alternatives
   ([feature-values]
      (alternatives feature-values nil))

                       (assoc node :children children)))
                   node)))))))

(defn print-answers [answers]
  (loop [current-answers answers
         index 1

        (for [{:keys [feature answer]} tree]
          [feature answer])))

(defn find-out [tree]
  (let [chosen-option (ask-question (answers tree))
        chosen-subtree (get-subtree tree chosen-option)]
