anchor.diff:      ]
   
   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 
  
positive.code: 
  //Как видно, грамматика неоднознаная.
  
  
  #light "off"
  
  open Set
  
negative.code:         (Console.WriteLine("Insert string:"); 
          Console.ReadLine())
         else
          test_str1 
     in     
     let r = res(str) in
     printfn "Result : %A" r;
     Console.WriteLine();
     printfn "End time: %A Total: %A" System.DateTime.Now (System.DateTime.Now - (!start_time));   
     Console.ReadLine()|>ignore