var a,a1:integer;
    b,c,d:real;
    x,y,z:real;
begin
   readln(a);
   readln(a1);
   b:=a/100;
   b:=trunc(b);
   c:=a/10-b*10;
   c:=trunc(c);
   d:=a-(b*100+c*10);
   d:=trunc(d);
   x:=a1/100;
   x:=trunc(x);
   y:=a1/10-x*10;
   y:=trunc(y);
   z:=a1-(x*100+y*10);
   z:=trunc(z);
   if (d*100+b*10+d)<(z*100+y*10+x) then writeln(z:1:0,y:1:0,x:1:0)
   else writeln(d:1:0,c:1:0,b:1:0);
   readln;
end.