for (1 .. 2**10) {
    my $size = 2**$_;
    print "Fail $_ high\n" if (log((2**$_ - 1)) / log(2) ) == $_;
}