Forums Scripts & Popups Make this go faster?

alias bm5 {
  var %start = $ticks
  var %i = 0
  .fopen -o gaz gazillion.txt
  while (%i < 10000) && (!$ferr) {
    .fwrite gaz $regsubex($str($crlf,100),/^/gm,$calc(%i + \n))
    inc %i 100
  }
  .fclose gaz
  echo -a (jaytea) File handling benchmark took $calc(($ticks - %start) / 1000) seconds
}