RosettaCodeData/Task/Loops-Infinite/Tcl/loops-infinite.tcl

while true {
    puts SPAM
}
# or
for {} 1 {} {
    puts SPAM
}