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: //actor stuff
  type actor<'t> = MailboxProcessor<'t>
  
  type Command =
    | Process of string
  
  type Manager =
    | Do of Command
  