tcl

while {1} {
      puts "Hello World "
     }