program bai_giai;
var f,g:text;
s1,s2,s:string;
i,j,max:integer;
begin
Assign(f,'Bai2.inp'); reset(f);
Assign(g,'Bai2.out'); rewrite(g);
readln(f,s1);
readln(f,s2);
max:=0;
for i:=1 to length(s1) do
begin
s:='';
for j:=i to length(s1) do
begin
s:=s+s1[j];
if (pos(s,s2)<>0) and (length(s)>max) then max:=length(s);
end;
end;
write(g,max);
close(f); close(g);
end.