anchor.diff:  
   [<EntryPoint>]
   let main argv =
  -    startWebServer defaultConfig app
  +    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    
positive.code:           path "/" >>= OK "Hello!"
            path "/login" >>= OK "This should have some login info"
            path "/goodbye" >>= OK "Good bye!"
            path "/api/v1/sensor" >>= JSON (Db.GetSensorIds())
            path "/api/v1/sensor/status" >>= JSON (Db.GetSensorStatus(Db.getCurrentTime()))
            pathScan "/api/v1/sensor/%s" (fun (id) -> JSON (Db.AllSensorData(id)))
  
negative.code: open Suave.Http
  open Suave.Http.Applicatives
  open Suave.Http.Successful
  open Suave.Types
  open Suave.Utils
  open Suave.Web
  open System.Net
  open Newtonsoft.Json
  open Newtonsoft.Json.Serialization
  
  