path: root/funtools/tmain.tcl

while {[gets stdin line] >=0} { puts [lindex $line 2] }