 (defn main 
   ( [] (main tst-words) )
   ( [word-seq]
-      (run-tests)
+      (do-tests)
       (println "----------------------------------------")
       (let [words-map     (words-by-length word-seq)
             max-word-len  (apply max (keys words-map) )

)
(defn -main [& args] (apply main args) )

; (defonce sanity-check (run-tests) )

  (vec 
    (for [ letter target-vec ] (guesses-set letter)) ))

(defn do-tests []
  (println "----------------------------------------")
  (println "Tests:")

