Uses Crt;
var m,n,i,j:integer;
a,b:array [1..10] of integer;
c:array[1..10] of boolean;
f:text;
begin
assign(f,'tong.inp');
reset(f);
readln(f,m);
for i:=1 to m do read(f,a[i]);readln(f); readln(f,n);
for i:=1 to n do read(f,b[i]);close(f);
for i:=1 to m do c[i]:=true;
for i:=1 to m do
for j:=1 to n do
if a[i]=b[j] then c[i]:=false;
for i:=1 to m do if c[i]=true then write(a[i]:3);
Readln
End.