anchor.diff:  do 
       let inPath = 
           //ref @"C:\yc\recursive-ascent\Tests\PLSqlParser\exec_proc_2.sql"         
  -        ref @"..\..\..\..\..\Tests\materials\pl-sql\jrxml2pdf-release\install\demodata.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
  
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:                     let oldTime = !timeOfIteration
                      timeOfIteration := System.DateTime.Now
                      let mSeconds = int64 ((!timeOfIteration - oldTime).Duration().TotalMilliseconds)
                      printfn "tkn# %10d Tkns/s:%8d - l" lastTokenNum.Value (1000L * traceStep / mSeconds)
                      if int64 chan.CurrentQueueLength > 3L then                        
                          int (int64 chan.CurrentQueueLength * mSeconds)  |> System.Threading.Thread.Sleep
                      post buf
  