#!/usr/bin/perl

use strict;
use warnings;

# a simple script to produce the 'or' number required for the debug_level setting
# in nagios.cfg

my $or;
for  my $x (@ARGV){
  $or |= $x ;
}

printf("%d\n", $or);

exit;