anchor.diff:  open Log
   
   // debug = true - печатается трасса. Иначе нет.
  -let debug = false
  +let debug = true
   
   //interacive = true - ввод строки с консоли. иначе - явная подстановка тестовой строки
  -let interacive = true
  -
  -let start_time = ref System.DateTime.UtcNow                                   
  +let interacive = false
  +
  +let start_time = ref System.DateTime.Now                                   
   
   type Symb = 
  -     |Term of char
  -     |NTerm of char
  +     |STerm of char
  +     |SNTerm of char
        
   type ISymb  = 
        |Term of char
  
positive.code:         (Console.WriteLine("Insert string:"); 
          Console.ReadLine())
         else
          test_str2 
     in     
     let r = res(str) in
     printfn "Result : %A" r;
     Console.WriteLine();
     printfn "End time: %A Total: %A" System.DateTime.UtcNow (System.DateTime.UtcNow - (!start_time));   
     Console.ReadLine()|>ignore
negative.code:     ]
  
  let Q = Set.union_all (Set.of_list[Item('S',[NTerm('E');Dot(' ',1)])]::items)
  let Q1 = Set.of_list (List.concat _items)
             
  let getText a (x,y,z)= 
      match a 
      with 
  