Evaluated proc rstr n {set out ""; for {set i 0} {$i < $n} {incr i} {append out [format %c [expr 97+(round(rand()*24))]]};. $out}