                     (frequencies (str/join words)) )
     avail-chars   (set/difference all-letters guessed-chars)
     best-char     (apply max-key #(get char-freqs % -1) avail-chars) 
-  ] 
-    best-char 
-  ))
+  ] best-char ))
 
 (defn do-tests []
   ; Test regex stuff
   (assert (= (complement-char-class #{})         "."      ))
   (assert (= (complement-char-class #{\a \b})    "[^ab]"  ))
   (let [words           ["abcd" "xbcd" "xxcd" "xxxd"]
-        letters         [\a \b \c \d] 
         guessed-chars   #{\b \s}
         clue-str        "-b--"
         not-char-class  (complement-char-class    guessed-chars)

    (let [ guess (.nextGuess strategy hangmanGame) ]
      (log-extra "Clue:"    (format "%-20s" (getGameClue hangmanGame))
               "  Status:"  (statusString hangmanGame) "  Guess:" guess )
      (.makeGuess guess hangmanGame)
    )
  )
  (let [score (.currentScore hangmanGame)]
    (log-extra "Clue:"    (format "%-20s" (getGameClue hangmanGame))
             "  Status:"  (statusString hangmanGame) "  Score:" score )

        patt-str   (str/join
                     (for [clue-ch clue-str]
                       (if (= clue-ch \-) not-guessed-class clue-ch) ))
  ] patt-str ))

(defn filter-words 
  "Filter words retaining only those that are possible matches given the current
