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