       (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)
+        keep-words      (filter-with keep-flag word-array)
+          _ (println "keep-words" (map str/join keep-words) )
         col-char-freqs   (to-freqs-by-col keep-words)
 
         new-guess       (make-guess clue col-char-freqs guessed-chars)

      ] ))

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

        new-clue        (make-clue tgt-word guessed-chars)
          _ (println "new-clue" new-clue)
      ]
        (if (some nil? new-clue)
          (recur  (conj guessed-chars new-guess)  new-clue ) 
        )
      ))
;)

