let () =
  let domains = Array.init 7 (fun i ->
    Domain.spawn (fun () ->
          for j = 1 to 10000000 do () done;
          Format.printf "Running in domain %d@." i;
          flush stdout;
      )
    ) in
  Array.iter Domain.join domains