logical[a,b] :=
{
   println["$a and  $b is " + (a and b)]
   println["$a or   $b is " + (a or b)]
   println["$a xor  $b is " + (a xor b)]
   println["$a nand $b is " + (a nand b)]
   println["$a nor  $b is " + (a nor b)]
   println["not $a     is " + (not a)]
}