sub c2 {
  my ($a, $b) = @_;
  return ($a and not $b)
}