program echo;
var
s,s1,s2,s3,s4:string;
i,j,k,m,n,l,l3,l2,max,max1:longint;
begin
assign(input,'echo.in');reset(input);
assign(output,'echo.out');rewrite(output);
readln(s1);
readln(s2);
l:=length(s1);
l2:=length(s2);
for i:=l2 downto 1 do
 begin
 s4:=s4+copy(s2,i,1);
 end;
for i:=1 to l do
 begin
 s3:=copy(s1,1,i);
 l3:=length(s3);
 s:='';
 for j:=l3 downto 1 do s:=s+copy(s3,j,1);
 if (pos(s,s4)=1)and(l3>max) then max:=l3;
 end;
 s4:='';
for i:=l downto 1 do s4:=s4+copy(s1,i,1);
for i:=1 to l2 do
 begin
 s3:=copy(s2,1,i);
 l3:=length(s3);
 s:='';
 for j:=l3 downto 1 do s:=s+copy(s3,j,1);
 if (pos(s,s4)=1)and(l3>max1) then max1:=l3;
 end;
if max>max1 then writeln(max) else writeln(max1);
close(output);
end.