1996-04-02 00:41:32 -08:00
|
|
|
let print_message c =
|
|
|
|
|
for i = 1 to 10000 do
|
|
|
|
|
print_char c; flush stdout
|
|
|
|
|
done
|
|
|
|
|
|
|
|
|
|
let _ =
|
1996-04-29 07:06:05 -07:00
|
|
|
let t1 = Thread.create print_message 'a' in
|
|
|
|
|
let t2 = Thread.create print_message 'b' in
|
1996-04-02 00:41:32 -08:00
|
|
|
Thread.join t1; Thread.join t2; exit 0
|
