Posted to tcl by tcleval at Fri Jul 10 21:24:16 GMT 2009view raw

  1. foreach x $temp {lappend sq "\$A$x"}