gistfile1.ml

open Domain

let rec f i n =
  if n mod 1000 = 0 then
    Printf.printf "%d %d\n" i n;
  f i (n + 1)

let () =
  for i = 0 to 3 do
    Printf.printf "%d\n" i;
    spawn (fun () -> f i 0)
  done;
  Unix.sleep 60