program prvi;
var s1,k1,k2:string[3];
s2:string[4];
i:integer;
begin

        readln(s1,s2);
        delete(s2,1,1);

        for i:=3 downto 1 do
        begin
                k1:=k1+s1[i];
                k2:=k2+s2[i];
        end;

        if k1>k2 then writeln (k1) else writeln (k2);
end.