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

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