Select Code to Download

#!/usr/bin/perl

...
        print "x=$x ($count)\n";
        $count++;
}

0       0000 0000 0000 0000
1       0000 0000 0000 1111
...
13      1111 1111 0000 1111
14      1111 1111 1111 0000
15      1111 1111 1111 1111