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.

program Hello;
var s1,s2:string;
function xoa(s:string):string;
var st:string;
    i:longint;
begin
    st:='';
    for i:= 1 to length(s) do
        if s[i] in ['0'..'9'] then
            st:= st + s[i];
    while (st[1] = '0') and (length(st) > 1) do delete(st,1,1);
    if st <> '' then
        xoa:= st
    else
        xoa:= '0';
end;
begin
    readln(s1);
    readln(s2);
    writeln(xoa(s1));
    writeln(xoa(s2));
end.