1#! /usr/bin/perl -ws
2
3use Lingua::EN::Inflect qw { classical PL def_noun def_verb def_adj };
4use vars qw { $classical $modern };
5
6classical if $classical && !$modern;
7
8def_noun 'kin'  => 'kine';
9
10def_verb 'foo'  => 'fee',
11	 'foo'  => 'fee',
12	 'foos' => 'fee';
13
14def_adj  'red'  => 'red|gules';
15
16print "singular> one ";
17while (<>)
18{
19	chomp;
20	exit if /^\.$/;
21	if (/^\-classical$/)	{ classical ; print "[going classical]"}
22	elsif (/^-modern$/)	{ classical 0; print "[going modern]" }
23	else			{ print "   plural> two ", PL $_ }
24	print "\nsingular> one ";
25}
26