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 } }