3 open F, "r/alt12dicts/2of12id.txt" or die;
7 ($d,$w,$p,$a) = /^(\-?)(\w+) (.).*: ?(.*?)$/ or die;
10 splice @a0, -1, 0, "'" if $p eq 'V' && @a0 >= 3;
13 s/ {.+?}//g; s/ \(.+?\)//g;
14 s/ \| / /g; s/ \/ / /g;
15 push @a, (split / /, $_);
17 @a = grep {!/^[@~-]/} @a;
18 @a0 = grep {$_ ne "'"} @a;
20 $words = join("\n",$w, @a0)."\n";
21 if ($p eq 'V' && @a >= 4) {
22 while ($a[0] ne "'") {local $_ = shift @a; $lookup{$_} .= $words}
25 $words = join("\n",$w, @a)."\n";
26 foreach (@a) {$lookup{$_} .= $words}
29 open F, "working/possessive.lst";
33 $lookup{"$_\'s"} .= "$_\n";