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:         let! msg = self.Receive ()
          match msg with
          | Worker.Retire ->
            manager.Post(Manager.WorkerDone)
            return ()
          | Worker.Do ->
            match command with
            | Process uri ->
              doit uri |> ignore
            return! loop ()
        }
      loop ())
  
negative.code:   let request = createRequest Get <| Uri(uri)
    use response = getResponse request |> Async.RunSynchronously
    let responseTime = stopWatch.Elapsed.TotalMilliseconds
    responseTime
  
  let newWorker id (manager : actor<Manager>) (command : Command): actor<Worker> =
    actor.Start(fun self ->
  