7 push @l, "$1y" if /^(.+)ies$/;
8 push @l, "$1Y" if /^(.+)IES$/;
9 push @l, $1 if /^(.+)es$/i;
10 push @l, $1 if /^(.+)s$/i;
18 open $in, $ARGV[0] or die;
31 open $out, ">$ARGV[0]" or die;
34 foreach $w (keys lookup)
37 foreach $s (&strip_plurel($w))
39 if (exists $lookup{$s})
44 print $out "$w\n" unless $dont_print;