sub DigitMorph {
my ($digit, $form1, $form2, $form3, $ZeroForm) = @_;
my $wrd;
if ($digit < 1) {
$wrd = $ZeroForm
} else {
$wrd = $digit
}
my $n = abs($digit) % 100;
my $n1 = $digit % 10;
if ($n > 10 && $n < 20) {
return $wrd.\' \'.$form3
} elsif ($n1 > 1 && $n1 < 5) {
return $wrd.\' \'.$form2
} elsif ($n1 == 1) {
return $wrd.\' \'.$form1
} elsif (($digit > 0) or (($digit < 1) and ($ZeroForm))) {
return $wrd.\' \'.$form3
}
}