proc writenum {} {
   set f [open ./num.txt w+]
   set i 1
   while {$i <= 100} {
       puts $f "$i"
       incr i
   }
   puts $f "\n"

   close $f
}
proc readline {} {
   set f [open ./num.txt r+]

   while {gets $f line} {
       puts $line
   }

   close $f

}

writenum

readline