var
a,b,c,d,e,r,t,i,j,m,n,o,no,mo:longint;
k:array[0..1000]of longint;
s1,s2:string;
begin
assign(input,'echo.in');
assign(output,'echo.out');
reset(input);
rewrite(output);
readln(s1);
readln(s2);
a:=length(s1);
b:=length(s2);

for i:=1 to b do
if s2[i]=s1[1] then
begin

n:=0;
for j:=1 to a do
if s2[i+j-1]=s1[j] then
n:=n+1;

if no<n then
no:=n;
end;
for i:=1 to a do
if s1[i]=s2[1] then
begin
m:=0;
for j:=1 to b do
if s1[i+j-1]=s2[j] then
m:=m+1;
if mo<m then
mo:=m;
end;
if no>mo then
write(no)
else
write(mo);
close(input);
close(output);
end.