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 webPart =
    choose
      [
        path "/" >>= choose [ GET >>= (OK <| html (System.Guid.NewGuid().ToString())) ]
        path "/send" >>= choose [ POST >>= bindToForm send (fun msg -> jobManager.Post(Send(guid msg.JobId, msg.Message)); (OK <| html msg.JobId)) ]
        path "/stop" >>= choose [ POST >>= bindToForm stop (fun msg -> jobManager.Post(Stop(guid msg.JobId)); (OK <| html msg.JobId)) ]
        path "/start" >>= choose [ POST >>= bindToForm start (fun msg -> jobManager.Post(Start(guid msg.JobId)); (OK <| html msg.JobId)) ]
      ]
  
  startWebServer defaultConfig webPart
  