anchor.diff:      JobId = guid sendFormData.JobId
       NumberOfRequests = int sendFormData.NumberOfRequests
       MaxWorkers = int sendFormData.MaxWorkers
  +    Uri = sendFormData.Uri
     }
   
   let send : Form<SendFormData> = Form ([],[])
   
  -let html jobId =
  +let html uri requests workers jobId =
    sprintf """
   <html>
   <body>
   
   <form method="POST" action="/send">
  -  Number of requests:
  -  <input type="text" name="NumberOfRequests">
  -  <br/>
  -  Max number of concurrent requests:
  -  <input type="text" name="MaxWorkers">
  -  <input type="hidden" name="JobId" value="%s">
  +  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>
  -  """ jobId
  +  """ uri requests workers jobId
   
   //actor stuff
   type actor<'t> = MailboxProcessor<'t>
  
positive.code: open Suave.Http.Successful
  open Suave.Web
  open Suave.Http
  open Suave.Http.Applicatives
  open Suave.Model.Binding
  open Suave.Http.ServerErrors
  
negative.code:     JobId : string
      NumberOfRequests : string
      MaxWorkers : string
      Uri : string
    }
  
  type SendData =
  