sub _atlayer
{
    #$_[0] = shift;
    local $_ = $_[1];
    $_ &= $_[ 0 ];
    return $_;
}