     (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 ] 


    tgt-word            [ \x  \b  \c  \d  ]
    clue                [ nil \b  nil nil ]

    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)

    guessed-chars       #{ \b }
      _ (println "guessed-chars" guessed-chars)
    new-guess           (make-guess clue col-char-freqs guessed-chars)
      _ (println "new-guess" new-guess)
    guessed-chars       (conj guessed-chars new-guess)
      _ (println "guessed-chars" guessed-chars)

    new-clue            (make-clue tgt-word guessed-chars)
      _ (println "tgt-word" tgt-word)
      _ (println "clue"     clue)
      _ (println "new-clue" new-clue)
  ] )
)


             {\a 1 \b 2 \c 3} ))

  ; Match guesses
  (assert (guess-matches? "abcd" "abcd") )
  (assert (guess-matches? "abcd" [\a \b \c \d]) )
  (assert (guess-matches? "abcd" [nil nil nil nil]) )
