var
a:array[1..5000]of longint;
s,q,f,l,l1:string;
z:char;
i,j,k,c,o,p,max:longint;
begin
assign(input,'echo.in');
assign(output,'echo.out');
reset(input);
rewrite(output);
readln(s);
readln(q);
c:=length(s);
o:=length(q);
f:=s[1];l:=q[o];
i:=1;j:=o;
while (f<>l1)or(s[i+1]=q[j-1]) do
begin
inc(i);dec(j);
f:=f+s[i];
l:=l+q[j];
l1:='';
for k:=length(l) downto 1 do
l1:=l1+l[k];
end;
max:=length(l1);
c:=length(q);
o:=length(s);
f:=q[1];l:=s[o];
i:=1;j:=o;
while (f<>l1)and(s[j-1]=q[i+1]) do
begin
inc(i);dec(j);
f:=f+q[i];
l:=l+s[j];
l1:='';
for k:=length(l) downto 1 do
l1:=l1+l[k];
writeln(l1,'  ',f);
end;
if length(l1)>max then max:=length(l1);
writeln(max);
close(input);
close(output);
end.