anchor.diff:    | Running
     | Stopped
   
  -let doit (request : Request) =
  -  ()
  +let doit uri =
  +  printfn "doing it"
  +  let stopWatch = System.Diagnostics.Stopwatch.StartNew()
  +  let request = createRequest Get <| Uri(uri)
  +  let response = getResponse request |> Async.RunSynchronously
  +  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 ->
  
positive.code:             return! loop status
            | Running ->
              match command with
              | Process req -> doit req
              //process command here
              return! loop status
          | Manager.Stop ->
            return! loop Stopped
  
negative.code:     let rec loop (managers : (Guid * actor<Manager>) list) =
        async {
          let! msg = inbox.Receive ()
          let uri = "http://www.example.com"
          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 ->
  