anchor.diff:      loop Stopped
     )
   
  +let getManager managers jobId =
  +  let maybeManager = managers |> List.tryFind (fun (jobId', _) -> jobId' = jobId)
  +  match maybeManager with
  +    | Some (_, manager) -> manager, managers
  +    | None ->
  +      let manager = newManager()
  +      let managers = (jobId, manager) :: managers
  +      manager, managers
  +
   let newJobManager () : actor<JobManager> =
     actor.Start(fun inbox ->
       let rec loop (managers : (Guid * actor<Manager>) list) =
  
positive.code:   let body = Response.readBodyAsString response |> Async.RunSynchronously
    let responseTime = stopWatch.Elapsed.TotalMilliseconds
    printfn "%A" responseTime
    printfn "%A" response
    printfn "%A" body
  
  let newManager () : actor<Manager> =
    actor.Start(fun inbox ->
  
negative.code:         let uri = "http://localhost:8083"
          match msg with
          | Send(jobId, _) ->
            let manager, managers = getManager managers jobId
            manager.Post(Do(Process uri))
            return! loop managers
          | Stop jobId ->
            let manager, managers = getManager managers jobId
            manager.Post(Manager.Stop)
            return! loop managers
          | Start jobId ->
            let manager, managers = getManager managers jobId
            manager.Post(Manager.Start)
            return! loop managers
        }
  