anchor.diff:  open Suave.Sockets
   open Suave.Sockets.Control
   open Suave.WebSocket
  +open System.Collections.Generic
   
   // initialize akka
   let private config = @"
  
positive.code:   | StartedEvent of string
    | FinishedEvent of string * float
    | FailedEvent of string * float
  
  let webServerActor events publishedEvent = 
    spawn system "webServer" <| fun mailbox -> 
  
negative.code:   printfn "Average processing time for failed drones is %f" failedAverage
    printfn "Max processing time for failed drones is %f" failedMax
  
  let createSwarm swarmName swarmSize func parent = 
    let coordinatorRef = 
      spawnOpt parent (swarmName + "-swarm") <| (fun mailbox -> 
      let timer = new System.Diagnostics.Stopwatch()
      do timer.Start()
      let event = new Event<Events>()
  