let print_message c =
  for i = 1 to 10000 do
    print_char c; flush stdout
  done

let _ =
  let t1 = Thread.new print_message 'a' in
  let t2 = Thread.new print_message 'b' in
  Thread.join t1; Thread.join t2; exit 0