Code:
alias ext {
  var %n = ext
  .fopen %n $$1-
  if ($ferr) { .fclose %n | return }
  if ($fopen(%n)) {
    while (!$feof) {
      if ($gettok($fread(%n),2,46)) { inc $+(%,$v1) }
    }
    .fclose %n
  }
}


I think this might be a little faster than my $read post.