#! perl -slw
use strict;

our $V //= 20;
our $L //= 72;

my @vecs = map {
    pack 'C*', 0xf0, map rand( 256 ), 1 .. (($L-8) / 8)+1;
} 1 .. $V;

printf "%2d : %s\n", $_, unpack 'b*', $vecs[ $_ ]
    for 0 .. $#vecs;

my $intersect = $vecs[ 0 ];
$intersect &= $vecs[ $_ ] for 1 .. $#vecs;

printf "** : %s\n", unpack 'b*', $intersect;

__END__
C:\test>908952 -L=64 -V=40
 0 : 000011111010001101110110000000101111000101100010101010110101110100011011
 1 : 000011111101000010110110111101111001010000110001011011010001010001110011
 2 : 000011110011111101000110111011110001010100001110010111100110101100001111
 3 : 000011110010001100111010010101100010100001000100100111011101000111101100
 4 : 000011111010100111111110011111010001011001101001111010111001001010010000
 5 : 000011111111011111011000010000011010111001100111100011111000100100001110
 6 : 000011111100100010010110001011001000011011010011101110101001001101100111
 7 : 000011111001000100111011010011000110001111011100011110110100001100010011
 8 : 000011110110101101000100000110110001111000010100010001100101101001100110
 9 : 000011110000001010011101010101010000011100111010011011100010001010101101
10 : 000011110100001111010100000011011100000011001110001000101101011100000101
11 : 000011111100100010000111001101110111100000111111011000101001111000011111
12 : 000011111001101111000101000101111101011101101101111000011001111111100000
13 : 000011111000111110110101010011101111111010010111100010010000010101111101
14 : 000011111111101110010110101101101011001111100111001011111011010001010001
15 : 000011111001101011100011100100111010001101100101000011101100111011111101
16 : 000011111110111100011100110010010110100001000001101111010011111111110101
17 : 000011110011111110100010100011000100100101001000001011110011001110011010
18 : 000011110110001001010011010011011001010010110100010110010001001001011101
19 : 000011111101101001110011010000101011000110000000001000100011110011011101
20 : 000011110100100111011111101000111110111001101010111001111111111111100011
21 : 000011110110011011101101101000011111111011000111001111010110110110011111
22 : 000011111111101100000111101100000110010111001011010100110011110101110111
23 : 000011111111100010000100010110000100111001111010100010000110010010101100
24 : 000011110100100000001111100011010000110100100001011100101110011010000110
25 : 000011111001110000000100001010101010101110001111110101100110100010011101
26 : 000011110010100110000100100110101111111110001111110000011100101100110001
27 : 000011110110110111001011110110100110100100101001101100011101001000111000
28 : 000011110101011100100000110010111111000100010111010001010000011001101100
29 : 000011111001000100010001110100110101001011101010001101110101011010111010
30 : 000011111011101010110111110011010100100011000100100101000011100110000101
31 : 000011110110110000111011011010100010001000100000111010111111000100010000
32 : 000011111100100100110000111101111001000011000111101111110000011100010101
33 : 000011111000111011011011100001100011110111011101010010011001111110001010
34 : 000011110110110001110001001000011001011110001001100100010100111101000111
35 : 000011111111110100000100101001011011011101101001111011101011100100011100
36 : 000011111011000101000011010010000101110000000110111110110010010100000011
37 : 000011110010100010001111010010111100110000010010000110001000101111100101
38 : 000011110010010001001100001111100010110110010111000110111010111010110101
39 : 000011110001111011100110010101001011010011011101101110101110011100101001
** : 000011110000000000000000000000000000000000000000000000000000000000000000