RosettaCodeData/Task/Concurrent-computing/Phix/concurrent-computing.phix

without js -- (threads)
procedure echo(string s)
    sleep(rand(100)/100)
    enter_cs()
    puts(1,s)
    puts(1,'\n')
    leave_cs()
end procedure

constant threads = {create_thread(routine_id("echo"),{"Enjoy"}),
                    create_thread(routine_id("echo"),{"Rosetta"}),
                    create_thread(routine_id("echo"),{"Code"})}

wait_thread(threads)
puts(1,"done")
{} = wait_key()