     (for [ letter target-vec ] (guesses-set letter)) ))
 
 (defn do-tests []
-  (println "----------------------------------------")
-  (println "Tests:")
 
   ; Filtering one sequence with another
   (let [pred-vals5  [ true false 5 nil :a ] 

    curr-len            4
    curr-words          (words-map curr-len)
      _ (assert (= curr-words     ["abcd" "xbcd" "xxcd" "xxxd"]  ))
      _ (println "curr-words:" curr-words)
    word-array          (to-word-array  curr-words)
      _ (println "word-array" word-array)

    col-char-freqs      (to-freqs-by-col word-array)
      _ (assert (= col-char-freqs [{\a 1, \x 3} {\b 2, \x 2} {\c 3, \x 1} {\d 4}] ))

         _ (println "all-char-freqs" all-char-freqs)
      ] ))

    (println)
    (println "************************************************************")
    (println "word-array" (map str/join word-array) )
    (loop [ guessed-chars  #{}
            clue           (make-clue tgt-word guessed-chars) 
          ]
      (println )
      (println "clue" clue)
      (let [
        keep-flag       (map #(guess-matches? % clue ) word-array )
        keep-words      (filter-with keep-flag word-array) ]
          (println "keep-words" (map str/join keep-words) )
          (if (= 1 (num-rows keep-words))
            (let [final-guess (str/join (keep-words 0)) ]
              (println (str "***** found word:  '" final-guess "'  *****") )
              (println "matches:" (= final-guess tgt-word)) )
          ;else
            (let [
              col-char-freqs  (to-freqs-by-col keep-words)
              new-guess       (make-guess clue col-char-freqs guessed-chars)
              guessed-chars   (conj guessed-chars new-guess)
              new-clue        (make-clue tgt-word guessed-chars)
                _ (println "new-clue" new-clue "  new-guess" new-guess 
                   "  guessed-chars (" (count guessed-chars) ")" guessed-chars)
              ]
              (if (some nil? new-clue)
                (recur  (conj guessed-chars new-guess)  new-clue ) 
              ))
          )
      ))

  )
)
