(jcwren) RE: Adding 2 + 2

[jcwren]

#!/usr/local/bin/perl -w

use strict;
use Lingua::EN::Numbers qw(American);

{
   my $v++;
   my $t=new Lingua::EN::Numbers(++$v);
   my $f=new Lingua::EN::Numbers($v*$v);
   print sprintf "Adding %s + %s = %s\n",$t->get_string,$t->get_string
+,$f->get_string;
}

--Chris

e-mail jcwren