sub get_valence
{
    my $lemma = shift @_;

    my $lexical_entry = `egrep -m 1 "^$lemma:" /home/lexicon`;
	
    return $lexical_entry;
}