anchor.diff:    printfn "Average processing time for failed drones is %f" failedAverage
     printfn "Max processing time for failed drones is %f" failedMax
   
  -let unleashSwarm swarmName swarmSize func = 
  +let createSwarm swarmName swarmSize func parent = 
     let coordinatorRef = 
  -    spawnOpt system (swarmName + "-coordinator") <| (fun mailbox -> 
  +    spawnOpt parent (swarmName + "-swarm") <| (fun mailbox -> 
       let timer = new System.Diagnostics.Stopwatch()
       do timer.Start()
       let event = new Event<Events>()
  
positive.code: open Suave.Sockets
  open Suave.Sockets.Control
  open Suave.WebSocket
  
  // initialize akka
  let private config = @"
  
negative.code:         //printf "%A" msg
          match msg with
          | Create -> 
            //let webServerRef = webServerActor events publishedEvent
            return! loop ([ 1..swarmSize ] |> List.map (fun i -> 
                                                let name = swarmName + "-drone-" + (string i)
                                                //let droneBrains = fun () -> augmentBrain name func mailbox.Self
  