#! /usr/bin/perl -ws

use Lingua::EN::Inflect qw { :COMPARISONS };
use vars qw { $classical $modern };

classical if $classical && !$modern;

print "compare> ";
while (<>)
{
	chomp;
	exit if /^\.$/;
	if (/^\-classical$/)	{ classical ; print "[going classical]"}
	elsif (/^-modern$/)	{ classical 0; print "[going modern]" }
	else		
	{
		if (/(\S+)\s+(\S+)/)
		{
			print "PL:	[", PL_eq($1, $2), "]\n";
			print "PL_N:	[", PL_N_eq($1, $2), "]\n";
			print "PL_V:	[", PL_V_eq($1, $2), "]\n";
			print "PL_ADJ:	[", PL_ADJ_eq($1, $2), "]\n";
		}
	}
	print "\ncompare> ";
}