anchor.diff:          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 keyNameText = match keyName with | JsonValue.String str -> str | _ -> failwith "Should never reach this."
   
           let! status = Classifier.discard OPTIONAL_WHITESPACE status
           let! status = Classifier.discard Colon status
  
positive.code:         return (keyNameText, value), status
      }
  
  and AcceptJsonKeyPairWithComma jsonKeyPairs status continuation =
      Classifiers.sub continuation {
          let! status = Classifier.discard OPTIONAL_WHITESPACE status
          let result = Classifier.discard Comma status
          match result with 
          | ClassifierResult.Ok(status) -> 
              let! status = Classifier.discard OPTIONAL_WHITESPACE status
              let! (value, status) = AcceptJsonKeyPair status
              return (value :: jsonKeyPairs), status
          | ClassifierResult.Error _ -> 
              return jsonKeyPairs, status
      }
  
  and AcceptJsonRecord status continuation =
  
negative.code:         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() =
  