program mmn;
uses crt;
var f1,f2,f:text;
s1,s2:array[1..100]of string;
i,j,n1,n2,z:integer;
BEGIN ClrScr;
Assign(f1,'f.txt');reset(f1);
Assign(f2,'g.txt');reset(f2);
Assign(f,'output.txt');rewrite(f);
While not eof(f1)do begin inc(n1);
readln(f1,s1[n1]);
end;
While not eof(f2)do> begin inc(n2);
readln(f2,s2[n2]);
end;
for i:=1 to n1 do begin z:=0;
for j:=1 to n2 do

if (s1[i]=s2[j])and(z=0)

then begin writeln(f,s1[i]);
z:=1;
end;
end;
close(f);
readln;
END.