uses crt;
var s1,s2:string;
i:byte;
begin
clrscr;
readln(s1);
readln(s2);
i:=1;
while i<=length(s1) do
begin
if s1[i] in ['0'..'9'] then inc(i)
else delete(s1,i,1);
end;
i:=1;
while i<=length(s2) do
begin
if s2[i] in ['0'..'9'] then inc(i)
else delete(s2,i,1);
end;
while (s1[1]='0') and (length(s1)<>0) do delete(s1,1,1);
while (s2[1]='0') and (length(s2)<>0) do delete(s2,1,1);
if length(s1)>0 then writeln(s1)
else writeln('0');
if length(s2)>0 then writeln(s2)
else writeln('0');
readln;
end.