sub  OR  { _OR (0, @_) }
sub  AND { _AND(1, @_) }
sub _OR  { my $s = shift; @_ && !$s ? _OR ( $s || shift, @_ ) : $s }
sub _AND { my $s = shift; @_ &&  $s ? _AND( $s && shift, @_ ) : $s }