anchor.diff:    [<Literal>]
     let NewLine   = "NEWLINE"
   
  +module internal ToStringDetails =
  +  let nonPrintableChars =
  +    [|
  +      for i in 0..31 ->
  +        match char i with
  +        | '\b'            -> @"\b"
  +        | '\f'            -> @"\f"
  +        | '\n'            -> @"\n"
  +        | '\r'            -> @"\r"
  +        | '\t'            -> @"\t"
  +        | ch              -> sprintf "\u%04X" i
  +    |]
  +
  +open ToStringDetails
   /// Represents a JSON document
   type Json =
     /// ()         - Represents a JSON null value
  
positive.code:     abstract Unexpected   : int*string    -> unit
    end
  
  module internal Details =
    [<Literal>]
    let DefaultSize = 16
  
  
negative.code:       let e = s.Length - 1
        for i = 0 to e do
          match s.[i] with
          | '\"'            -> str @"\"""
          | '\\'            -> str @"\\"
          | '/'             -> str @"\/"
          | c when c < ' '  -> str ToStringDetails.nonPrintableChars.[int c]
          | c               -> ch c
        ch '"'
  
      let values b e (vs : 'T array) (a : 'T -> unit) =
  