   ( [word-seq]
     (do-tests)
     (println "----------------------------------------")
-    (def tgt-word         "hate")
+    (def tgt-word         "bed")
     (def words-map        (to-words-by-length word-seq) )
     (def curr-len         (count tgt-word) )
     (def curr-words       (words-map curr-len) )

      (println "clue" clue)
      (let [
        keep-flag       (map #(guess-matches? % clue ) word-array )
          _ (println "keep-flag" keep-flag)
        keep-words      (filter-with keep-flag curr-words)
          _ (println "keep-words" keep-words)
        col-char-freqs   (to-freqs-by-col keep-words)

        new-guess       (make-guess clue col-char-freqs guessed-chars)

      ] ))

;(comment
    (println)
    (println "************************************************************")
    (println "word-array" word-array)
    (loop [ guessed-chars  #{}
            clue           (make-clue tgt-word guessed-chars) 
          ]
