sub get_verb_forms
{
    my $verb = shift;

    # 2Dec2001: /(.+ne)n$/ handles "lernen" incorrectly; if there are
    # verbs it handles correctly, they should be documented here...
    if ($verb =~ /(.+n)en$/)
    {
	my $stem = $1;
	return ($stem, $stem);
    }
    else
    {
	my $stem = get_verb_stem($verb);	
	return ($stem, $stem . 'e');
    }
}