path: root/challenge-143/abigail/tcl/ch-1.tcl

#
# Run as: tclsh ch-1.tcl < input-file
#

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