anchor.diff:        }
       loop [] 0 0)
   
  -let run () =
  +let run maxDOP =
     // suites list is in reverse order and have to be reversed before running the tests
     suites <- List.rev suites
  -  let manager = newManager()
  +  let manager = newManager maxDOP
     manager.Post(Manager.Initialize(suites))
     manager.Post(Manager.Start)
   
  
positive.code:     if i % 10 = 0 then failwith "mod error"
      ctx.printfn "A guid %A" (ng()))
  
  run()
  
  System.Console.ReadKey() |> ignore
  
negative.code:       }
      loop ())
  
  let newManager maxDOP : actor<Manager> =
    let sw = System.Diagnostics.Stopwatch.StartNew()
    actor.Start(fun self ->
      let rec loop workers maxWorkers doneWorkers =
  