          (take show-info-size (map #(str \" % \") string-seq)) ))
 
 (defn make-clue
-  "Returns a clue string given the target word and a vec of guessed letters. The
+  "Returns a clue string given the target word and a set of guessed letters. The
   clue is a string the length of the target word consisting of either letters
   (for correctly guessed letters) or hyphens (for incorrect guesses)."
   [tgt-word guessed-chars]

  [] 
  (time
    (doseq [ tgt-word (sort (keys baseline-scores)) ]
      (let [base-score          (baseline-scores tgt-word)
            num-letter-guesses  (play-hangman tgt-word) ]
        (log-msg (str   "word:  " (format "%-15s"  tgt-word) 
                   "  guesses:  " (format   "%2s"  num-letter-guesses)
                  "  baseline:  " (format   "%2s"  base-score) )))))
)

(defn statusString
  "Return the game status as a string."
  [hangmanGame]
  (cond 
    (HangmanUtils/isGameWon      hangmanGame ) "game-won     "

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

(defn do-tests []
  ; Test regex stuff
  (assert (= (complement-char-class #{})         "."      ))
  (assert (= (complement-char-class #{\a \b})    "[^ab]"  ))
  (let [words           ["abcd" "xbcd" "xxcd" "xxxd"]
        guessed-chars   #{\b \s}
        clue-str        "-b--"
        not-char-class  (complement-char-class    guessed-chars)
