1 2 3 4 5
# # Run as: tclsh ch-1.tcl < input-file # while {[gets stdin line] >= 0} {puts [expr $line]}