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: //actor stuff
  type actor<'t> = MailboxProcessor<'t>
  
  type Verb =
    | Get
    | Post
    | Put
    | Delete
  
  type Header =
    | ContentType of string
  
  type Request =
    {
      uri : string
      verb : Verb
      headers : Header list
    }
  
  type Command =
    | Process of Request
  
  type Manager =
    | Do of Command
  
negative.code:   | Running
    | Stopped
  
  let doit uri =
    printfn "doing it"
    let stopWatch = System.Diagnostics.Stopwatch.StartNew()
    let request = createRequest Get <| Uri(uri)
    let response = getResponse request |> Async.RunSynchronously
    let body = Response.readBodyAsString response |> Async.RunSynchronously
    let responseTime = stopWatch.Elapsed.TotalMilliseconds
    printfn "%A" responseTime
    printfn "%A" response
    printfn "%A" body
  
  let newManager () : actor<Manager> =
    actor.Start(fun inbox ->
  