1#! /usr/bin/perl -ws
2
3use Lingua::EN::Inflect qw { &inflect &classical };
4use vars qw { $classical $modern };
5
6classical if $classical && !$modern;
7
8print "inflect> ";
9while (<>)
10{
11	chomp;
12	exit if /^\.$/;
13	if (/^\-classical$/)	{ classical ; print "[going classical]"}
14	elsif (/^-modern$/)	{ classical 0; print "[going modern]" }
15	else			{ print inflect $_ }
16	print "\ninflect> ";
17}
18