anchor.diff:  
       [<CompiledName("WithFilters")>]
       let withFilters (requestFilter:RequestFilter<Stream>, responseFilter:ResponseFilter<Stream>)  (application:IHttpApplication) =
  -        FilterApplication(application, requestFilter, responseFilter) :> IHttpApplication+        { new IHttpApplication with
  +            member this.Filter (req:HttpRequest<Stream>)= requestFilter req
  +            member this.Filter (resp:HttpResponse<Stream>) = application.Filter resp
  +            member this.Route (req:HttpRequest<Stream>) = application.Route req
  +        }
positive.code:         member this.Route (req:HttpRequest<Stream>) = 
              let path = List.ofArray req.Uri.Segments
              (router.Item path) |> Option.getOrElse defaultResource
  
  type internal FilterApplication (application:IHttpApplication, requestFilter:RequestFilter<Stream>, responseFilter:ResponseFilter<Stream>) =
      interface IHttpApplication with
          member this.Filter (req:HttpRequest<Stream>)= requestFilter req
          member this.Filter (resp:HttpResponse<Stream>) = application.Filter resp
          member this.Route (req:HttpRequest<Stream>) = application.Route req
       
  module HttpApplication =
      [<CompiledName("SingleResource")>]
      let singleResource resource = SingleResourceApplication(resource) :> IHttpApplication
  
      [<CompiledName("Routing")>]
      let routing (resources, defaultResource)  =
  
negative.code:     abstract Filter: HttpResponse<Stream> -> HttpResponse<Stream>
      abstract Route: HttpRequest<Stream> -> IStreamResource
  
  type internal RoutingApplication (router:Router, defaultResource:IStreamResource) =
      interface IHttpApplication with
          member this.Filter (req:HttpRequest<Stream>)= req
  