var
a,b,c:array[0..1000] of integer;
f1,f2:text; roz,j,i:integer;
r,k:string;
begin
assign(f1,'v.txt');
reset(f1);
readln(f1,r);
a[0]:=length(r);
j:=1;
for i:=a[0] downto 1 do
begin
val(r[i],a[j],s);
j:=j+1;
end;
readln(f1,k);
b[0]:=length(k)
j:=1;
fori:=b[0] downto 1 do
begin
val(kk[i],b[j],s);
j:=j+1;
end;
    if a[0]>b[0] then c[0]:=a[0] else c[0]:=b[0];
    roz:=0;
for i:=1 to c[0] do
begin
c[i]:=(a[i]+b[i]+roz) mod 10 ;
roz:=(a[i]+b[i]+roz) div 10 ;
end;
writeln(roz);
if roz>0 then
begin
c[0]:=c[0]+1;
n:=c[0];
c[n]:=roz;
end;
assign(f2,'vu.txt');
rewrite(f2);
for i:=c[0] downto 1 do
write(f2,c[i]);
close(f1);
close(f2);
end.