var a,b:string;
Procedure nhap;
begin
readln(a,b);
end;
procedure them0(var so1,so2:string);
var i:integer;
begin
if length(so1)<length(so2) then for i:=1 to length(so2)-length(so1) do so1:='0'+so1;
if length(so2)<length(so1) then for i:=1 to length(so1)-length(so2) do so2:='0'+so2;
function tong(so1,so2:string): string;
var cs:string; cs1,cs2,code,T,cs_tong,nho:byte;
begin
tong:='';
nho:=0;
for i:=length(so1) downto 1 do
begin
val(so1[i],cs1,code);
val(so2[i],cs2,code);
T:=cs1+cs2+nho;
cs_tong:=T mod 10;
nho:=T div 10;
str(cs_tong,cs);
tong:=cs+tong;
end;
If nho=1 then tong:='1'+tong;
end;
behin
nhap;
write(tong(a,b));
end.