anchor.diff:      match json with
       | JSON_Null -> "null"
       | JSON_String s -> s_name s
  -    | JSON_Number n -> sprintf "%d" n
  +    | JSON_Number n -> print_number n
       | JSON_Boolean b -> match b with
                           | true -> "true"
                           | _ -> "false"
  
positive.code: }
  """
  
  open System 
  
  let explode (s:string) = [for i in s -> i]
  
  //*** BEGIN Parse ***//
  type Token = OpenBrace | CloseBrace | OpenBracket | CloseBracket | Colon | Comma
              | Null | String of string | Number of int | Boolean of bool
              /// is True | False needed?
  
  //*** Tokenizer ***//
  let tokenize source = 
  
negative.code: //*** TEST Parse ***//
  tokenize (explode json) // Обьявление выше
  tokenize (explode json2)
  tokenize (explode json3)
  
  parse json // Обьявление выше
  parse json2
  parse json3
  
  /// Больше тестирований - в разделе генератора
  //*** ENG Parse ***//
  