anchor.diff:          let prefix = joinWithSlash "/" prefix
           let shift (loc: Location) =
               if loc.IsAbsoluteUri then loc else
  -                makeUri (joinWithSlash prefix (path loc))
  +                makeUri (joinWithSlash prefix (path loc |> trimFinalSlash))
           {
               StaticRoutes =
                   let d = Dictionary()
  
positive.code:         if uri.IsAbsoluteUri
          then uri.AbsolutePath
          else Uri.UnescapeDataString(uri.OriginalString) |> joinWithSlash "/"
          |> trimFinalSlash
  
  type Router<'Action when 'Action : equality> =
      {
  
negative.code:         | _ -> this.DynamicLink(action)
  
      member this.Route(req: Http.Request) =
          match this.StaticRoutes.TryGetValue(path req.Uri |> trimFinalSlash) with
          | true, r -> Some r
          | _ -> this.DynamicRoute(req)
  
  