1#! /usr/bin/perl -ws
2
3use Lingua::EN::Inflect qw { :USER_DEFINED classical NO };
4use vars qw { $classical $modern };
5
6classical if $classical && !$modern;
7
8def_noun 'kin'   => 'kine';
9def_noun '(.*)x' => '$1xen';
10
11def_verb 'foo'  => 'fee',
12	 'foo'  => 'fee',
13	 'foos' => 'fee';
14
15def_adj  'red'  => 'red|gules';
16
17print "count word> ";
18while (<>)
19{
20	chomp;
21	exit if /^\.$/;
22	if (/^\-classical$/)	{ classical ; print "[going classical]"}
23	elsif (/^-modern$/)	{ classical 0; print "[going modern]" }
24	else
25	{
26		/\s*([^\s]+)\s+(.*)/ or next;
27		print "            ", NO($2,$1), "\n";
28	}
29	print "\ncount word> ";
30}
31