RosettaCodeData/Task/Concurrent-computing/Tcl/concurrent-computing-1.tcl

after [expr int(1000*rand())] {puts "Enjoy"}
after [expr int(1000*rand())] {puts "Rosetta"}
after [expr int(1000*rand())] {puts "Code"}