Tcl Source Code

Artifact 37fafe726c3d3ce4dcba0888c56a5d985342dbb5:

Attachment "maketestfile.tcl" to ticket [2176669fff] added by andreas_kupries 2009-11-21 02:47:12.

---

set buf
foreach x {a b c d e f g h i j k l m n o} {
    foreach y {0 1 2 3 4 5 6 7 8 9} {
	append buf $x$y
    }
}
set fd [open testfile w]
puts $fd $buf
close $fd
exit