sub vge {
    my($self,$l,$r) = @_;
    $self->vcmp($l,$r) >= 0;
}