anchor.diff:      let sp = if u2.StartsWith "/" then u2.Substring 1 else u2
       u1 + sp
   
  -  let streamWp (stream:Stream) : WebPart = 
  +  let streamWp (stream:Stream) : WebPart =
       fun ctx ->
         let write (conn, _:HttpResult) : SocketOp<unit> = socket {
               let header = sprintf "Content-Length: %d\r\n" stream.Length
  
positive.code:             | '%' :: 'G' :: _ -> x.Push [Parsed DecimalPart]
              | '%' :: 'x' :: _
              | '%' :: 'X' :: _ -> x.Push [Parsed HexaPart]
              | _ :: _ -> 
                  let n = x.PreviewNext()
                  match n with
                  | Some '%' -> x.Push [Constant (x.StringBuffer 0)]
  
negative.code:           writer.Flush()
          override __.ReadJson(_:JsonReader,_:Type,_:obj,_:JsonSerializer) =
            unbox ""
          override __.CanConvert(objectType:Type) =
            objectType = typeof<ResponseDoc>
    and PropertyDefinitionConverter()=
      inherit JsonConverter()
  