anchor.diff:          | Yard.Generators.RNGLR.Parser.Error (num, tok, message, debug, _) ->
               printfn "Error in position %d on Token %A: %s" num tok message
               debug.drawGSSDot "out.dot"
  +            Assert.Fail "!!!!!!"
           | Yard.Generators.RNGLR.Parser.Success(tree, _) ->
               tree.PrintAst()
               RNGLR.SimpleCalcWithNTerms_3.defaultAstToDot tree "ast.dot"
  -            
  -        Assert.Pass()
  +            Assert.Pass()
   
       [<Test>]
       member this.``Simple calc with nterm 4. Seq input.`` () =
  
positive.code:         | Yard.Generators.RNGLR.Parser.Error (num, tok, message, debug, _) ->
              printfn "Error in position %d on Token %A: %s" num tok message
              debug.drawGSSDot "out.dot"
          | Yard.Generators.RNGLR.Parser.Success(tree, _) ->
              tree.PrintAst()
              RNGLR.ParseCalc.defaultAstToDot tree "ast.dot"
          Assert.Pass()
  
      [<Test>]
      member this.``Calc. Branched input.`` () =
  
negative.code:         | Yard.Generators.RNGLR.Parser.Error (num, tok, message, debug, _) ->
              printfn "Error in position %d on Token %A: %s" num tok message
              debug.drawGSSDot "out.dot"
              Assert.Fail "!!!!"
          | Yard.Generators.RNGLR.Parser.Success(tree, _) ->
              tree.PrintAst()
              RNGLR.ParseCalc.defaultAstToDot tree "ast.dot"
              Assert.Pass()
  
      [<Test>]
      member this.``Calc. Branched input error.`` () =
          let qGraph = new AbstractParsing.Common.ParserInputGraph<_>()
          qGraph.AddVerticesAndEdgeRange
              [
               new AbstractParsing.Common.ParserEdge<_>(0,3,lbl <| RNGLR.ParseCalc.NUMBER 2)
               new AbstractParsing.Common.ParserEdge<_>(3,4,lbl <| RNGLR.ParseCalc.MULT 3)
               new AbstractParsing.Common.ParserEdge<_>(4,5,lbl <| RNGLR.ParseCalc.NUMBER 4)
               new AbstractParsing.Common.ParserEdge<_>(3,6,lbl <| RNGLR.ParseCalc.DIV 5)
               new AbstractParsing.Common.ParserEdge<_>(6,5,lbl <| RNGLR.ParseCalc.PLUS 6)
               ] |> ignore
  
          let r = (new Parser<_>()).Parse  RNGLR.ParseCalc.buildAstAbstract qGraph
          printfn "%A" r
          match r with
          | Yard.Generators.RNGLR.Parser.Error (num, tok, message, debug, _) ->
              printfn "Error in position %d on Token %A: %s" num tok message
              debug.drawGSSDot "out.dot"
              Assert.Pass()
          | Yard.Generators.RNGLR.Parser.Success(tree, _) ->
              tree.PrintAst()
              RNGLR.ParseCalc.defaultAstToDot tree "ast.dot"
              Assert.Fail "!!!!"
  
      [<Test>]
      member this.``Calc. Branched input 2.`` () =
  