proc random2 {d} {
global letters 
set i 0
set return ""
while {![string equal $i $d]} {
if {[string equal $i [expr $d - 1]]} {append return [random $letters(3)]} else {
append return [random $letters([rand 3])]; incr i} }
return $return
}