+++ /dev/null
-#!/usr/bin/perl
-
-use IO::Handle;
-
-chdir "r/uk-freq-class/" or die;
-
-for $i (0 ... 16) {
- $f[$i] = new IO::Handle;
- open $f[$i], ">uk.".sprintf("%02u",$i);
-}
-
-open F, "wlist.html";
-
-while(<F>) {
- /^(\S+) (\S+)\n/ or next;
- $f[$2]->print("$1\n");
-}