anchor.diff:      let part expenseService =
           Writers.setMimeType "text/html" >=>
               choose [
  -                expense expenseService
                   path "/" >=> (OK (Index()))
  +                path "/logout" >=> context(fun c -> RequestErrors.UNAUTHORIZED "LoggedOut")
  +                basicAuth <|
  +                    expense expenseService
               ]
   
   module Content =
  
positive.code:     choose [
          Content.part
          Web.part expenseService
          Api.part expenseService
      ]
  
negative.code:     let fromJson<'T> (request:HttpRequest) =
          let json = System.Text.Encoding.UTF8.GetString(request.rawForm)
          JsonConvert.DeserializeObject<'T>(json)
  
  [<AutoOpen>]
  module Security =
      let basicAuth =
          Authentication.authenticateBasic (fun (x,y) -> x=y)
  
      let getUserName (c:HttpContext) =
          c.userState |> Map.tryFind "userName" |> Option.map (fun x -> x.ToString())
  
  
  module FileIO =
      open System.IO
  