anchor.diff:  <form method="POST" action="/send">
     Message:
     <input type="text" name="Message">
  -  <input type="hidden" name="JobId" value="%A">
  +  <input type="hidden" name="JobId" value="%s">
     <input type="submit" value="Send">
   </form>
   
   <form method="POST" action="/start">
  -  <input type="hidden" name="JobId" value="%A">
  +  <input type="hidden" name="JobId" value="%s">
     <input type="submit" value="Start">
   </form>
   
   <form method="POST" action="/stop">
  -  <input type="hidden" name="JobId" value="%A">
  +  <input type="hidden" name="JobId" value="%s">
     <input type="submit" value="Stop">
   </form>
   
  
positive.code:         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
          | Stop jobId ->
            let _, manager = managers |> List.find (fun (jobId', _) -> jobId' = jobId)
            manager.Post(Manager.Stop)
            return! loop managers
          | Start jobId ->
            let _, manager = managers |> List.find (fun (jobId', _) -> jobId' = jobId)
            manager.Post(Manager.Start)
            return! loop managers
        }
  
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 ->
  