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: 
  type Manager =
    | Do of int * Command
    | Start
    | Stop
  
  type MetaManager =
    | Send of jobId : Guid * message : string
    | Stop of jobId : Guid
    | Start of jobId : Guid
  
  type Status =
    | Running
    | Stopped
  
  let doit uri =
    let stopWatch = System.Diagnostics.Stopwatch.StartNew()
  
negative.code: 
  let newManager () : actor<Manager> =
    actor.Start(fun self ->
      let rec loop () =
        async {
          let! msg = self.Receive ()
          match msg with
          | Manager.Do (count, command) ->
            let workers = [ 1 .. count ] |> List.map (fun _ -> newWorker self)
            workers |> List.iter (fun worker -> worker.Post(Worker.Do(command)); worker.Post(Retire))
            return! loop ()
        }
      loop ()
    )
  
  let getManager managers jobId =
  