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

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


##</code><code>##

# Looks like you failed 12 tests of 16.
ok 1
ok 2
ok 3
not ok 4
not ok 5
not ok 6
not ok 7
not ok 8
not ok 9
not ok 10
not ok 11
not ok 12
not ok 13
ok 14
not ok 15
not ok 16
1..16