Select Code to Download

$ perl -e '$c = 12;print reverse map {vec $c,$_,1}  0..8*length($c)-1;
+'
0011001000110001

$ perl -e '$c = 12;print reverse map {$c&1<<$_?1:0}  0..8;'
000001100