tcl script whatver

Posted to tcl by tarsonis at Sat Aug 11 15:36:03 GMT 2007view raw

foreach i {1 2 3 4 5} {
set input_s$i [open "story$i.txt" r]
set lines_s$i [countLines story$i.txt]
set data_s$i [read $input_s$i]
close input_s$i
}