anchor.diff:    choose
       [
         path "/test" >>= choose [ GET >>= OK "this is a test" ]
  -      path "/" >>= choose [ GET >>= warbler (fun _ -> OK <| html (System.Guid.NewGuid().ToString())) ]
  +      path "/" >>= choose [ GET >>= warbler (fun _ -> OK <| html "http://localhost/" 10 1 (System.Guid.NewGuid())) ]
         path "/send" >>= choose [ POST >>= bindToForm send
                                              (fun sendFormData ->
  -                                              metaManager.Post(Send(convertSendData sendFormData))
  -                                              OK <| html sendFormData.JobId) ]
  +                                              let sendData = convertSendData sendFormData
  +                                              metaManager.Post(Send sendData)
  +                                              OK <| html sendFormData.Uri sendData.NumberOfRequests sendData.MaxWorkers sendData.JobId) ]
       ]
   
  -startWebServer defaultConfig webPart
  +let config = { defaultConfig with bindings = [ HttpBinding.mk' HTTP "127.0.0.1" 8085 ] }
  +startWebServer config webPart
  
positive.code:     let rec loop (managers : (Guid * actor<Manager>) list) =
        async {
          let! msg = self.Receive ()
          let uri = "http://localhost/"
          match msg with
          | Send sendData ->
            let manager, managers = getManager managers sendData.JobId
            manager.Post(Initialize(sendData, Process uri))
            return! loop managers
        }
      loop [])
  
negative.code:     JobId = guid sendFormData.JobId
      NumberOfRequests = int sendFormData.NumberOfRequests
      MaxWorkers = int sendFormData.MaxWorkers
      Uri = sendFormData.Uri
    }
  
  let send : Form<SendFormData> = Form ([],[])
  
  let html uri requests workers jobId =
   sprintf """
  <html>
  <body>
  
  <form method="POST" action="/send">
    Max number of concurrent requests:<input type="text" name="Uri" value="%s"><br/>
    Number of requests:<input type="text" name="NumberOfRequests" value="%i"><br/>
    Max number of concurrent requests:<input type="text" name="MaxWorkers" value="%i"><br/>
    <input type="hidden" name="JobId" value="%A">
    <input type="submit" value="Send">
  </form>
  
  </body>
  </html>
    """ uri requests workers jobId
  
  //actor stuff
  type actor<'t> = MailboxProcessor<'t>
  