1#! /usr/bin/perl -ws
2
3use Lingua::EN::Inflect qw { :COMPARISONS };
4use vars qw { $classical $modern };
5
6classical if $classical && !$modern;
7
8print "compare> ";
9while (<>)
10{
11	chomp;
12	exit if /^\.$/;
13	if (/^\-classical$/)	{ classical ; print "[going classical]"}
14	elsif (/^-modern$/)	{ classical 0; print "[going modern]" }
15	else
16	{
17		if (/(\S+)\s+(\S+)/)
18		{
19			print "PL:	[", PL_eq($1, $2), "]\n";
20			print "PL_N:	[", PL_N_eq($1, $2), "]\n";
21			print "PL_V:	[", PL_V_eq($1, $2), "]\n";
22			print "PL_ADJ:	[", PL_ADJ_eq($1, $2), "]\n";
23		}
24	}
25	print "\ncompare> ";
26}
27