foreach s [lrange [split [read stdin] \n] 1 end] {puts $s}