anchor.diff:  
       [<Test>]
       member test.``Counter test - simple for translator``() =
  -        runTest RNGLR.ParseCounter.buildAst "counter.txt" (translateAndCheck RNGLR.ParseCounter.defaultAstToDot [5])
  +        runTest RNGLR.ParseCounter.buildAst "counter.txt" (translateAndCheck RNGLR.ParseCounter.defaultAstToDot RNGLR.ParseCounter.translate [5])
   
       [<Test>]
       member test.``Calc test - simple for translator``() =
  -        runTest RNGLR.ParseCalc.buildAst "calc.txt" (translateAndCheck RNGLR.ParseCalc.defaultAstToDot <| List.replicate 8 105)
  +        runTest RNGLR.ParseCalc.buildAst "calc.txt" (translateAndCheck RNGLR.ParseCalc.defaultAstToDot RNGLR.ParseCalc.translate <| List.replicate 8 105)
   
       [<Test>]
       member test.``Translate with Attributes``() =
  -        runTest RNGLR.ParseAttrs.buildAst "attrs.txt" (translateAndCheck RNGLR.ParseAttrs.defaultAstToDot [48])
  +        runTest RNGLR.ParseAttrs.buildAst "attrs.txt" (translateAndCheck RNGLR.ParseAttrs.defaultAstToDot RNGLR.ParseAttrs.translate [48])
   
       [<Test>]
       member test.``Parse empty string``() =
  -        runTest RNGLR.ParseEpsilon.buildAst "Epsilon.txt" (translateAndCheck RNGLR.ParseEpsilon.defaultAstToDot [3])
  +        runTest RNGLR.ParseEpsilon.buildAst "Epsilon.txt" (translateAndCheck RNGLR.ParseEpsilon.defaultAstToDot RNGLR.ParseEpsilon.translate [3])
   
       [<Test>]
       member test.``If Then Else``() =
  -        runTest RNGLR.ParseCond.buildAst "Cond.txt" (translateAndCheck RNGLR.ParseCond.defaultAstToDot [22])
  +        runTest RNGLR.ParseCond.buildAst "Cond.txt" (translateAndCheck RNGLR.ParseCond.defaultAstToDot RNGLR.ParseCond.translate [22])
   
       [<Test>]
       member test.``Resolvers``() =
  -        runTest RNGLR.ParseResolvers.buildAst "Resolvers.txt" (translateAndCheck RNGLR.ParseResolvers.defaultAstToDot [List.replicate 5 1])
  +        runTest RNGLR.ParseResolvers.buildAst "Resolvers.txt" (translateAndCheck RNGLR.ParseResolvers.defaultAstToDot RNGLR.ParseResolvers.translate [List.replicate 5 1])
   
       [<Test>]
       member test.``Calculation order``() =
  
positive.code: [<TestFixture>]
  type ``RNGLR parser tests with simple lexer`` () =
  
      let translateAndCheck toDot (expected:List<_>) (ast:Tree<_>) file errors = 
          ast.PrintAst()
          toDot ast (file + ".dot")
          let res = translate RNGLR.ParseOmit.translate ast errors
          printfn "Result: %A" res
          Assert.AreEqual(expected, res)
  
  
negative.code:     member test._Brackets() =
          runTest RNGLR._Brackets.buildAst "_Brackets.txt" printAst
  
  [<EntryPoint>]
  let f x =
      if System.IO.Directory.Exists "dot" 
      then 
          System.IO.Directory.GetFiles "dot" |> Seq.iter System.IO.File.Delete
      else System.IO.Directory.CreateDirectory "dot" |> ignore
      let t = new ``RNGLR parser tests with simple lexer`` ()
      t.``Calc test - simple for translator`` ()
  
      0