Select Code to Download

my $n = 4;
for my $i (1..2**$n-1) {
...
    }
    print "$i = $str\n"
}

1 = 0001
2 = 0010
...
13 = 1101
14 = 1110
15 = 1111