anchor.diff:  let bindToForm form handler =
     bindReq (bindForm form) handler logAndShow500
   
  -type Send = { JobId : string; Message : string; }
  -type Stop = { JobId : string; }
  -type Start = { JobId : string; }
  +type Send = { JobId : string; NumberOfRequests : string; }
   
   let send : Form<Send> = Form ([],[])
  -let stop : Form<Stop> = Form ([],[])
  -let start : Form<Start> = Form ([],[])
   
   let html jobId =
    sprintf """
  
positive.code:   choose
      [
        path "/" >>= choose [ GET >>= (OK <| html (System.Guid.NewGuid().ToString())) ]
        path "/send" >>= choose [ POST >>= bindToForm send (fun msg -> metaManager.Post(Send(guid msg.JobId, msg.Message)); (OK <| html msg.JobId)) ]
        path "/stop" >>= choose [ POST >>= bindToForm stop (fun msg -> metaManager.Post(Stop(guid msg.JobId)); (OK <| html msg.JobId)) ]
        path "/start" >>= choose [ POST >>= bindToForm start (fun msg -> metaManager.Post(Start(guid msg.JobId)); (OK <| html msg.JobId)) ]
      ]
  
  startWebServer defaultConfig webPart
  
negative.code:         match msg with
          | Send(jobId, count) ->
            let manager, managers = getManager managers jobId
            manager.Post(Do(count, Process uri))
            return! loop managers
        }
      loop []
  