procedure main()
   L:=[ thread write("Enjoy"), thread write("Rosetta"), thread write("Code") ]
   every wait(!L)
end