Evaluated proc rstr n {set out ""; for {set i 0} {$i < $n} {incr i} {append out [rch]};. $out}