let high_mask = Array.init (succ bpi) (fun j -> low_mask.(j) lsl (bpi-j))