anchor.diff:                      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)
  +                    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
  
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
  