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.