anchor.diff:  open Suave.Http.Applicatives
   open Suave.Model.Binding
   open Suave.Http.ServerErrors
  +open HttpFs.Client
   
   //helpers
   let guid guid = System.Guid.Parse(guid)
  
positive.code:   | Running
    | Stopped
  
  let doit (request : Request) =
    ()
  
  let newManager () : actor<Manager> =
    actor.Start(fun inbox ->
  
negative.code:             return! loop status
            | Running ->
              match command with
              | Process uri -> doit uri
              return! loop status
          | Manager.Stop ->
            return! loop Stopped
  