anchor.diff:          ] |> compileDoc
   
       let extra = { id = 0; message = "Additional fortune added at request time." }
  -    let FortuneComparer = { new IComparer<Fortune> with 
  +    let FortuneComparer = { new IComparer<Fortune> with
           member self.Compare(a,b) = String.CompareOrdinal(a.message, b.message)
   }
   
   [<EntryPoint>]
  -let main args = 
  +let main args =
   
  -    // Defualt implimentation        
  +    // Defualt implimentation
       let fallback : Zapp<_> = (fun ctx -> ctx {
           text "Url Not Found"
  -        status 404        
  +        status 404
       })
   
  -    let webapp = 
  +    let webapp =
           router [
               get "/plaintext" => fun ctx -> ctx { text "Hello, World!" }
               get "/json"      => fun ctx -> ctx { json {JsonStructMessage.message = "Hello, World!"} }
  -            get "/fortunes"  => fun ctx -> ctx { 
  +            get "/fortunes"  => fun ctx -> ctx {
                   use conn = new NpgsqlConnection(ConnectionString)
  -                
  +
                   let! (data : Fortune seq) = conn.QueryAsync<Fortune>("SELECT id, message FROM fortune")
  -                
  -                let fortunes = 
  +
  +                let fortunes =
                       let xs = data.AsList()
                       xs.Add View.extra
                       xs.Sort View.FortuneComparer
  
positive.code: 
  
  module Simple =
      let textFn<'T> (text:string) = 
          let bytes =         System.Text.Encoding.UTF8.GetBytes(text)
          let contentLength = Microsoft.Extensions.Primitives.StringValues(bytes.Length.ToString())
          let contentType =   Microsoft.Extensions.Primitives.StringValues "text/plain"
          fun (x:State<'T>) -> 
              x.HttpContext.Response.Headers.["Content-Length"] <- contentLength
              x.HttpContext.Response.Headers.["Content-Type"] <- contentType
              let t = x.HttpContext.Response.Body.WriteAsync(bytes,0,bytes.Length)
  
negative.code:             awt.OnCompleted x.Continue
  
  module View =
  
      let fortuneView =
          html [] [
              head [] [
                  title []  [ rawText "Fortunes" ]
              ]
              body [] [
                  table [] [
                      tr [] [
                          th [] [ rawText "id" ]
                          th [] [ rawText "message" ]
  