sub cmpbv
{
    return $_[0] & $_[1];
}