 
       (if (nil? (next current-answers))
         (assoc indexed-answers index ans)
-        (recur (next current-answers) (inc index) (assoc indexed-answers index ans))))
-    ))
+        (recur (next current-answers) (inc index) (assoc indexed-answers index ans))))))
 
 (declare ask-question)
 

      (find-out children)
      (map #(get subject-names %) (:alternatives chosen-subtree)))))


;; (find-out (solve-tree subject-matrix))

(defn -main
  [& args]
  (println "Here is a solve tree for subject matrix:")

  (reduce-indexed (fn [acc idx itm]
                    (println (str "acc: " acc " idx: " idx " itm: " itm))
                    (assoc acc itm (conj (get acc itm #{}) idx))) {} values)
)
