1#! /usr/bin/perl -ws
2
3use Lingua::EN::Inflect qw { classical NUM inflect };
4use vars qw { $classical $modern };
5
6classical if $classical && !$modern;
7
8print "count inflection> ";
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		/\s*(\S+)\s+(.*)/ and
18			print "            ", NUM($1), " ", inflect($2), "\n"
19		or /\s*(\S*)/ and
20			print "            ", inflect($1), "\n";
21	}
22	print "\ncount word> ";
23}
24