anchor.diff:          let uri = "http://localhost:8083"
           match msg with
           | Send(jobId, _) ->
  -          let maybeManager = managers |> List.tryFind (fun (jobId', _) -> jobId' = jobId)
  -          match maybeManager with
  -          | Some(_, manager) ->
  -            manager.Post(Do(Process uri))
  -            return! loop managers
  -          | None ->
  -            let manager = newManager()
  -            manager.Post(Do(Process uri))
  -            let managers = (jobId, manager) :: managers
  -            return! loop managers
  +          let manager, managers = getManager managers jobId
  +          manager.Post(Do(Process uri))
  +          return! loop managers
           | Stop jobId ->
  -          let _, manager = managers |> List.find (fun (jobId', _) -> jobId' = jobId)
  +          let manager, managers = getManager managers jobId
             manager.Post(Manager.Stop)
             return! loop managers
           | Start jobId ->
  -          let _, manager = managers |> List.find (fun (jobId', _) -> jobId' = jobId)
  +          let manager, managers = getManager managers jobId
             manager.Post(Manager.Start)
             return! loop managers
         }
  
positive.code: <form method="POST" action="/send">
    Message:
    <input type="text" name="Message">
    <input type="hidden" name="JobId" value="%A">
    <input type="submit" value="Send">
  </form>
  
  <form method="POST" action="/start">
    <input type="hidden" name="JobId" value="%A">
    <input type="submit" value="Start">
  </form>
  
  <form method="POST" action="/stop">
    <input type="hidden" name="JobId" value="%A">
    <input type="submit" value="Stop">
  </form>
  
  
negative.code:   let body = Response.readBodyAsString response |> Async.RunSynchronously
    let responseTime = stopWatch.Elapsed.TotalMilliseconds
    printfn "%A" responseTime
  
  let newManager () : actor<Manager> =
    actor.Start(fun inbox ->
  