<>;
$b=-1;
$a|=$_,$b&=$_ for glob<>;
print 1<<unpack"%b*",pack N,$a^$b;