let
bit_j =
Array
.init bpi (
fun
j
->
1
lsl
j)