var     a,b,z,k:string;
        i,j:integer;

begin
        read(a,b);

        for i:=3 downto 1 do
        z:=(a[i+2]+a[i+1]+a[i]);

        for j:=3 downto 1 do
        k:=(b[j+2]+b[j+1]+b[j]);

        if (z>=k) then writeln(z);
        if (z<k) then writeln(k);
end.