[NJG] December 30, 2004

-aaaaaaaaaaaaaaaaaaaaaa  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }aaaaaaaa aaaaaaaaaaaaaaaaaaaee ezarzet retreyrtyyuyuorted.... Or was I just lazy?!

With this extension in place the following code produces identical output to the one above (except that now ''txt1'' holds the result).

 set st 0  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }  append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }
 set nr 0
 proc sbst {} {
       uplevel #0 {
              set p_st [lindex $mVar0 0]
              append txt1 [string range $txt $st [expr $p_st - 1]]
              set st [lindex $mVar0 1]
              set var [string range $txt $p_st $st]
              incr st
              if {[catch {set vn($var)}]} {
                     set vn($var) xx$nr
                     incr nr
              }
              append txt1 $vn($var)
       }
 }
 regexp -inline -indices -all {[IO10l]{10,}} $txt sbst
 append txt1 [string range $txt $st end]

'''HAPPY AND PROSPEROUS 2005 TO ALL OF YOU'''

----
[Category Example]