anchor.diff:  
   printfn "%s" (plainStringify (parse json2))
   printfn "%s" (stringify (parse json2))
  +
  +//Больше тестирований - в разделе генератора
   //*** END Stringification ***//
   
   //*** BEGIN Random Generator ***//
  
positive.code: 
  // почтовый адрес
  let email = ""
  
  //*** Tokenizer ***//
  
  let json = """
  {
  
negative.code: 
          let rec parse_obj (acc : (string * JSON) list) (tokens : Token list) : (JSON * Token list) = 
              match tokens with
              | String name :: Colon :: ts ->
                  let (obj, ts') = parse' ts
                  parse_obj ((name, obj) :: acc) ts'
              | Comma :: ts -> 
                  parse_obj acc ts
              | CloseBrace :: ts ->
  