|
#directory "+threads"
|
|
#load "unix.cma"
|
|
#load "threads.cma"
|
|
|
|
let sleepy_print msg =
|
|
Unix.sleep (Random.int 4);
|
|
print_endline msg
|
|
|
|
let threads =
|
|
List.map (Thread.create sleepy_print) ["Enjoy"; "Rosetta"; "Code"]
|
|
|
|
let () =
|
|
Random.self_init ();
|
|
List.iter (Thread.join) threads
|