foreach letter [split $a_chan_crypt_quote($chan) ""] {
    if {[info exists cur_solved($letter)]} {
      incr matches
      append quote [string toupper "${solved_encoding}$cur_solved($letter)\017"]
    } else {
      if {[regexp -all {[a-z]} $letter] != 0} {
        append quote "${unsolved_encoding}$letter\017"
      } else {
        append quote $letter
      }
    }
  }