my $bm = (1<<($i+1)) - (1<<$j);