uses crt;
var s,st,k:string;
i,n,t,nho:byte;
begin
clrscr;
readln(s);
readln(st);
while length(s)<length(st) do s:='0'+s;
while length(st)<length(s) do st:='0'+st;
s:='0'+s;
st:='0'+st;
n:=length(s);
nho:=0;
for i:=n downto 1 do
begin
t:=ord(s[i])+ord(st[i])+nho;
nho:=0;
if t>105 then
begin
nho:=1;
t:=t-10;
end;
k:=chr(t-48)+k;
end;
if k[1]='0' then delete(k,1,1);
writeln(k);
readln;
end.