#!/usr/bin/perl

print "a|b\n";
for $a (1, 0){
    for $b (1, 0){
        print "$a|$b|";
        print $x = ($a & $b) ? "t" : "f";
        print "\n";
    }
}

print "\n";