var

ss,st,s,ans:ansistring;

i,long,k,l:integer;

begin

readln(ss);

readln(st);

l:=length(st);

i:=1;

long:=0; k:=0;

s:='';

while i<=l do

begin

if pos(ss[i],st)<>0

then

begin

s:=s+ss[i];

if pos(s,st)<>0

then

begin

inc(k);

if i=l then if k>long then begin long:=k; ans:=s; end;

end

else

begin

inc(k);

if k-1>long then begin long:=k-1; delete(s,k,1); ans:=s; end;

s:=ss[i];

k:=1;

end;

end

else

begin

if k>long then begin long:=k; ans:=s; end;

s:='';

k:=0;

end;

inc(i);

end;

writeln(ans);

end.