#!/usr/bin/env perl -w
#$Id: xor.pl 545 2008-04-06 20:46:24Z rick $

if (defined ($ARGV[0])) {
    $MAX = $ARGV[0];
} else {
    $MAX = 1000;
}


for (0 .. $MAX) {
    $a = int(rand(2));
    $b = int(rand(2));
    $c = $a ^ $b;
    print "$a $b $c\n"
}