sub vector {
    my ($aa) = @_;
    return V(@$aa);
    }