anchor.diff:      printfn "%A" r
       match r with
       | Error (num, tok, message) ->
  -        printfn "Error in position %d on Token %A: %s" num tok message
  -        Assert.Fail "!!!!!!"
  +        let msg = sprintf "Error in position %d on Token %A: %s" num tok message
  +        printfn "%A" msg
  +        Assert.Fail msg
       | Success(tree) ->
           //tree.PrintAst()
           let n, e, eps, t, amb = tree.CountCounters()
  
positive.code:             ] |> ignore
  
          test RNGLR.StrangeBrackets.buildAstAbstract qGraph 25 24 4 8 1
  [<EntryPoint>]
  let f x =
      if System.IO.Directory.Exists "dot" 
  
negative.code: //    t._26_UnambiguousBrackets_Inf()
  //    t._27_UnambiguousBrackets_WithoutEmptyString()
  //    t._28_UnambiguousBrackets_DifferentPathLengths ()
     // t.``TSQL performance test for Alvor`` 2 100 false
      t.``TSQL performance test 2`` 2 100 false
      0
  