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

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

  ( [word-seq]
    (do-tests)
    (println "----------------------------------------")
    (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) )
