Select Code to Download

vec EXPR,OFFSET,BITS
        Treats the string in EXPR as a bit vector made up of elements 
+of
        width BITS, and returns the value of the element specified by
        OFFSET as an unsigned integer.

    for (@{$domains[$i]}) { vec($scratch,$_,1) = 1}

    for (@{$domains[$i]}) { vec($$scratch,$_,1) = 1}

for ( $j = 0; $j <= 5; $j++ )
{
...
        }
    }
}