sub multi_and {
  my $result = shift;
  for (@_) { $result &= $_ }
  $result
}