require v5.16;
use Test::More qw(no_plan);

for(51..66)
 {my $s = sprintf("%b", 2**$_-1);
  ok length($s) == $_;
 }