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
