while {[gets stdin s]>0} {append t $s}
puts $t