anchor.diff:      let allTokens = 
           seq{
               while true do
  -                //let arr = tokenizer.Receive 100000 |> Async.RunSynchronously
  -                lastTokenNum := !lastTokenNum + 1L // int64 arr.Length
  +                let arr = tokenizer.Receive 100000 |> Async.RunSynchronously
  +                lastTokenNum := !lastTokenNum + int64 arr.Length
                   if (!lastTokenNum % (traceStep)) = 0L then                 
                       let oldTime = !timeOfIteration
                       timeOfIteration := System.DateTime.Now
                       let mSeconds = int64 ((!timeOfIteration - oldTime).Duration().TotalMilliseconds)
                       printfn "tkn# %10d Tkns/s:%8d - p" lastTokenNum.Value (1000L * traceStep/ mSeconds)
  -                //yield! arr
  -                let tok =  Lexer.tokens lexbuf
  +                yield! arr
  +                //let tok =  Lexer.tokens lexbuf
                   //printfn "%A" tok
  -                yield  tok
  +                //yield  tok
                   }
   
       let translateArgs = {
  
positive.code:         }   
  
      let start = System.DateTime.Now
      //use tokenizer =  MailboxProcessor<_>.Start(tokenizerFun)
      let lexbuf = Lexing.LexBuffer<_>.FromTextReader reader
      let lastTokenNum = ref 0L    
      let timeOfIteration = ref System.DateTime.Now
  
negative.code: do 
      let inPath = 
          //ref @"C:\yc\recursive-ascent\Tests\PLSqlParser\exec_proc_2.sql"         
          ref @"..\..\..\..\..\Tests\materials\pl-sql\jrxml2pdf-release\install\demodata_big.sql"  
          //ref @"..\..\..\..\..\Tests\Materials\ms-sql\sysprocs\test.sql" 
          //let inPath = ref @"..\..\..\..\..\Tests\Materials\ms-sql\sysprocs\sp_addserver.sql"
      let parseDir = ref false
  