RosettaCodeData/Task/Integer-sequence/Tcl/integer-sequence.tcl

package require Tcl 8.5
while true {puts [incr i]}