program filip;

var
   a, b, gr : integer;
   s1, s2 : string;

function ObrniString (s : string) : string;
var
   i : integer;
begin
   ObrniString := '';
   for i := 1 to Length (s) do
      ObrniString := Concat (s[i], ObrniString);
end;

begin
   readln (a, b);
   Str (a, s1); Str (b, s2);
   s1 := ObrniString (s1);
   s2 := ObrniString (s2);
   Val (s1, a, gr);
   Val (s2, b, gr);
   if a>b then writeln (a) else writeln (b);
end.