anchor.diff:            pathScan "/api/v1/noise/%s/%d" (fun (id, min) -> JSON (Db.NoiseValuesFromDuration(id, min)))
             pathScan "/api/v1/voc/avg/%s/%d" (fun (id, min) -> JSON (Db.AvgVoc(id, min)))
             pathScan "/api/v1/voc/%s/%d" (fun (id, min) -> JSON (Db.VocValuesFromDuration(id, min)))
  -          basicAuth // from here on it will require authentication
             path "/api/v1/last" >>= JSON (Db.LastUpdate())
           ]
         POST >>= choose
  
positive.code: open Suave.Http
  open Suave.Http.Applicatives
  open Suave.Http.Successful
  open Suave.Utils
  open Suave.Web
  open Newtonsoft.Json
  open Newtonsoft.Json.Serialization
  
  
negative.code: 
  [<EntryPoint>]
  let main argv =
      match argv.Length with
       | 0 -> startWebServer defaultConfig app
       | _ -> let port = Sockets.Port.Parse <| argv.[0]
              let serverConfig = 
                  { defaultConfig with
                     bindings = [ HttpBinding.mk HTTP IPAddress.Loopback port ]
                  }
              startWebServer serverConfig app
      0    