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