#!/usr/local/bin/perl

$string1 = <STDIN>;
chop ($string1);
$len1 = length ($string1);
$string2 = <STDIN>;
chop ($string2);
$len2 = length ($string2);
if ($len1 % 8 != 0) {
        $string1 = "0" x (8 - $len1 % 8) . $string1;
        $len1 += 8 - $len1 % 8;
}
if ($len2 % 8 != 0) {
        $string2 = "0" x (8 - $len2 % 8) . $string2;
        $len2 += 8 - $len2 % 8;
}
if ($len1 > $len2) {
        $string2 = "0" x ($len1 - $len2) . $string2;
} else {
        $string1 = "0" x ($len2 - $len1) . $string1;
        $len1 += ($len2 - $len1);
}
$bytes1 = pack ("b*", $string1);
$bytes2 = pack ("b*", $string2);
$carry = 0;
$count = $len1 - 1;
while ($count >= 0) {
        $bit1 = vec ($bytes1, $count, 1);
        $bit2 = vec ($bytes2, $count, 1);
        $result = ($bit1 + $bit2 + $carry) & 1;
        $carry = ($bit1 + $bit2 + $carry) >> 1;
        vec ($bytes1, $count, 1) = $result;
        $count--;
}
$resultstring = unpack ("b*", $bytes1);
$resultstring = $carry . $resultstring if ($carry > 0);
print ("$resultstring\n");
