anchor.diff:  
       [<Test>]
       member test.``Translate with Attributes``() =
  -        runTest RNGLR.ParseAttrs.buildAst "attrs.txt" (translateAndCheck RNGLR.ParseAttrs.defaultAstToDot RNGLR.ParseAttrs.translate [48])
  +        let processSuccess (mAst : Tree<_>) file errors = 
  +            mAst.PrintAst()
  +            let res = (translate RNGLR.ParseAttrs.translate mAst errors) 3 : int list
  +            printfn "Result: %A" res
  +            Assert.AreEqual([48], res)
  +        runTest RNGLR.ParseAttrs.buildAst "attrs.txt" processSuccess
   
       [<Test>]
       member test.``Parse empty string``() =
  
positive.code: [<TestFixture>]
  type ``RNGLR parser tests with simple lexer`` () =
  
      let translateAndCheck toDot translateFunction (expected:List<_>) (ast:Tree<_>) file errors = 
          ast.PrintAst()
          toDot ast (file + ".dot")
          let res = translate translateFunction ast errors
  
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.``Translate with Attributes`` ()
  
      0