anchor.diff:      let rec loop (managers : (Guid * actor<Manager>) list) =
         async {
           let! msg = self.Receive ()
  -        let uri = "http://localhost:3000/"
  +        let uri = "http://localhost/"
           match msg with
           | Send sendData ->
             let manager, managers = getManager managers sendData.JobId
  
positive.code: 
  type Manager =
    | Initialize of SendData * Command
    | WorkerDone
  
  type MetaManager =
    | Send of SendData
  
negative.code: 
  let newManager () : actor<Manager> =
    actor.Start(fun self ->
      let rec loop (workers : actor<Worker> list) maxWorkers activeWorkers results sw =
        async {
          let! msg = self.Receive ()
          match msg with
          | Manager.Initialize (sendData, command) ->
            //build up a list of all the work to do
            printfn "Requests: %A, Concurrency %A" sendData.NumberOfRequests sendData.MaxWorkers
            let workers = [ 1 .. sendData.NumberOfRequests ] |> List.map (fun id -> newWorker id self command)
            let maxWorkers = sendData.MaxWorkers
            let activeWorkers = 0
            let results = []
            let sw = System.Diagnostics.Stopwatch.StartNew()
            let remainingWorkers, activeWorkers = haveWorkerWork workers maxWorkers activeWorkers
            return! loop remainingWorkers maxWorkers activeWorkers results sw
          | Manager.WorkerDone ms ->
            let remainingWorkers, activeWorkers = haveWorkerWork workers maxWorkers (activeWorkers - 1)
            let results = ms :: results
            if activeWorkers = 0 then
              sw.Stop()
              let avg = results |> List.average
              let min = results |> List.min
              let max = results |> List.max
              printfn "Total seconds: %A, Average ms: %A, Max ms: %A, Min ms: %A" sw.Elapsed.TotalSeconds avg max min
            return! loop remainingWorkers maxWorkers activeWorkers results sw
        }
      loop [] 0 0 [] null)
  
  let getManager managers jobId =
    let maybeManager = managers |> List.tryFind (fun (jobId', _) -> jobId' = jobId)
  