my $answer = $$result[0];
    if ( ($answer == 1) && ( $i % 2 != 0) ) {
           print "Got it wrong!\n";
           #Learn the pattern
           $net->learn(\@bit,[0]);
           $i=-1; # Start over
    }
    print "$answer\n";


##</code><code>##

Testing 0   0 0 0 0 0 -> 1
Testing 1   0 0 0 0 1 -> Got it wrong!
1
Testing 0   0 0 0 0 0 -> 1
Testing 1   0 0 0 0 1 -> 0
Testing 2   0 0 0 1 0 -> 1
Testing 3   0 0 0 1 1 -> 0
Testing 4   0 0 1 0 0 -> 1
Testing 5   0 0 1 0 1 -> 0
Testing 6   0 0 1 1 0 -> 1
Testing 7   0 0 1 1 1 -> 0
Testing 8   0 1 0 0 0 -> 1
Testing 9   0 1 0 0 1 -> 0
Testing 10   0 1 0 1 0 -> 1
Testing 11   0 1 0 1 1 -> 0
Testing 12   0 1 1 0 0 -> 1
Testing 13   0 1 1 0 1 -> 0
Testing 14   0 1 1 1 0 -> 1
Testing 15   0 1 1 1 1 -> 0
Testing 16   1 0 0 0 0 -> 1