Select Code to Download

% perl -le 'print vec(0x0, 5,1)'
1

% perl -le 'print vec(0x0, 6,1)'
0

% perl -le 'print vec("", 5,1)'
0

% perl -le '@bits = split(//, unpack("b*", 0x0)); print "@bits"'
0 0 0 0 1 1 0 0