Posted to tcelle by lolz at Mon Sep 03 03:38:00 GMT 2007view pretty
if {[lindex $a 0] == ""} {
set data [open [split chan1.txt "\n"]]
set reading [read $data]
putnotc $n "$reading"
} else {
set lolax [open chan1.txt a]
puts $lolax [lindex $a 0]
close $lolax
}}