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

          (doseq [word words]
            (let [strategy      (new-strategy)
                  hangmanGame   (HangmanGame. word max-wrong-guesses) 
                  score         (play-hangman-java hangmanGame strategy) 
            ]
              (log-msg "Word:"      (format "%-20s" word)
                       "Status:"    (format "%-20s" (getGameClue hangmanGame))
                                      (statusString hangmanGame) 
                       "Score:"     (format "%3d" score) )
              (swap! cumScore + score) 
            ))
          (log-msg)
          (log-msg "Average score:  " 
            (format "%6.2f" (/ (double @cumScore) (count words) )) )
          (log-msg)
        ))))
)

(defn -main [& args] 
  (apply main args) )


(defonce test-results (do-tests) )

(defn play-hangman-internal 
  "Plays the hangman game for the supplied word.  Returns the number of letter
  guesses required to find a unique match in the master words list."
  [tgt-word]
  (let [ word-list (words-by-length (count tgt-word)) ]
    (loop [ guessed-chars   #{}
            clue            (make-clue tgt-word guessed-chars) ]
      (log-extra)
