set ofile [open data.txt w]
for {set i 0 } { $i < 10 } { incr i } {
puts $ofile "This is line number : $i "
}
close $ofile

set ifile [open data.txt r]
while { [gets $ifile line] != -1 } {
puts $line
}
close $ifile