#!/usr/bin/perl
use strict;
use warnings;

use feature 'bitwise';
no warnings 'experimental::bitwise';


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

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

exit;