summaryrefslogtreecommitdiffstats
path: root/funtools/tmain.tcl
blob: 3636d443bc77920d41cb26e1a19e22a309e2ba9a (plain)
1
while {[gets stdin line] >=0} { puts [lindex $line 2] }