anchor.diff:  
   /// Specifies the formatting behaviour of JSON values
   [<RequireQualifiedAccess>]
  -[<Flags>]
   type JsonSaveOptions = 
     /// Format (indent) the JsonValue
  -  | None              = 0b0000
  +  | None = 0
     /// Print the JsonValue in one line in a compact way
  -  | DisableFormatting = 0b0001
  -  /// Prevent null Record attributes from appearing
  -  | RemoveNulls       = 0b0010
  -  /// Prevent JavaScript encoding
  -  | DisableEncoding   = 0b0100
  +  | DisableFormatting = 1
   
   /// Represents a JSON value. Large numbers that do not fit in the 
   /// Decimal type are represented using the Float case, while
  
positive.code:       | Boolean b -> sb.Append(if b then "true" else "false")
        | Number number -> sb.Append(number.ToString(CultureInfo.InvariantCulture))
        | Float number -> sb.Append(number.ToString(CultureInfo.InvariantCulture))
        | String s ->
          if saveOption JsonSaveOptions.DisableEncoding then
              sb.Append("\"").Append(s).Append("\"")
          else
              sb.Append("\"").Append(JavaScriptStringEncode s).Append("\"")
        | Record properties -> 
            let isNotFirst = ref false
            sb.Append "{"  |> ignore
            for k, v in properties do
              if v <> JsonValue.Null || noSaveOption JsonSaveOptions.RemoveNulls then
                  if !isNotFirst then sb.Append "," |> ignore else isNotFirst := true
                  newLine 2
                  if saveOption JsonSaveOptions.DisableFormatting then
                    sb.AppendFormat("\"{0}\":", k) |> ignore
                  else
                    sb.AppendFormat("\"{0}\": ", k) |> ignore
                  serialize sb (indentation + 2) v |> ignore
            newLine 0
            sb.Append "}"
        | Array elements -> 
  
negative.code:     JsonParser(text, cultureInfo, false).ParseMultiple()
  
    /// Sends the JSON to the specified uri. Defaults to a POST request.
    member x.Request(uri:string, ?httpMethod, ?headers) =  
      let httpMethod = defaultArg httpMethod HttpMethod.Post
      let headers = defaultArg headers []
      let headers =
          if headers |> List.exists (fst >> ((=) (fst (HttpRequestHeaders.UserAgent ""))))
          then headers
  