var a,b,aux,x:string;k,max,i,j,l:integer;f,g:text;c:=array[1..50,1..50]of string;
begin
assign(f,'subsir.in');reset(f);
assign(g,'subsir.out');rewrite(g);
readln(f,a);
readln(f,b);max:=0;
if length(a)>length(b) then begin aux:=a;a:=b;b:=aux;end;
for i:=1 to length(a) do begin    k:=0;x:='';
for j:=i to length(a) do begin
x:=x+a[j];
if pos(x,b)>0 then begin k:=k+1;if k>max then max:=k;end
              else begin k:=0;break;end;
end;end;
for i:=1 to length(a) do begin    k:=0;x:='';
for j:=i to length(a) do begin
x:=x+a[j];
if pos(x,b)>0 then begin k:=k+1;if k=max then begin writeln(g,x);l:=l+1;k:=0;end;end
              else begin k:=0;break;end;
end;end;
write(g,l); close(f);close(g);
end.