anchor.diff:          true, " [ 23498, 09, 45, 123.0e+10, -12e-499, 9.09834E-23 ] "
           false, " [ {}, 09 ] "
           true, """ [ {}, { "key2": { "subObject": [] } }, { "items": [ 7, 8, 9 ] } ] """
  +        true, """
  +{
  +    "glossary": {
  +        "title": "example glossary",
  +        "GlossDiv": {
  +            "title": "S",
  +            "GlossList": {
  +                "GlossEntry": {
  +                    "ID": "SGML",
  +                    "SortAs": "SGML",
  +                    "GlossTerm": "Standard Generalized Markup Language",
  +                    "Acronym": "SGML",
  +                    "Abbrev": "ISO 8879:1986",
  +                    "GlossDef": {
  +                        "para": "A meta-markup language, used to create markup languages such as DocBook.",
  +                        "GlossSeeAlso": ["GML", "XML"]
  +                    },
  +                    "GlossSee": "markup"
  +                }
  +            }
  +        }
  +    }
  +} """
       ]
   
   let Example() =
  
positive.code:         let! status = Classifier.discard OPTIONAL_WHITESPACE status
          
          let! (keyName, status) = AcceptStringLiteral status
          let keyNameText = match keyName with | JsonValue.String str -> str | _ -> failwith "need better error"
  
          let! status = Classifier.discard OPTIONAL_WHITESPACE status
          let! status = Classifier.discard Colon status
  
negative.code:         let! status = Classifier.discard OPTIONAL_WHITESPACE originalStatus
  
          if List.isEmpty elements then
              let! (tryFirstValue, status) = ClassifierBuilder.ZeroOrOne(status, AcceptJsonObject)
              match tryFirstValue with
              | None -> 
  