sub FIRSTKEY
{
     my $node = FIRSTNODE($root_node);

     return $node && $node->{key};
}

sub NEXTKEY
{
     my ($key) = @_;

     my $node = NEXTNODE (FindNode ($key));

     return $node && $node->{key};
}