trits = {True, Maybe, False}; Print@Grid[ ArrayFlatten[{{{{Not}}, {{Null}}}, {List /@ trits, List /@ Not /@ trits}}]]; Do[Print@Grid[ ArrayFlatten[{{{{operator}}, {{Null, Null, Null}}}, {{{Null}}, {trits}}, {List /@ trits, Outer[operator, trits, trits]}}]], {operator, {And, Or, Nand, Nor, Xor, Xnor, Implies, Equivalent}}]