var f1,f2:text;
a:array[0..100000] of longword;
duyet:array[0..100000] of boolean;
i,n:longword;
const fi='DEBUG.INP';
fo='DEBUG.OUT';
procedure make(a:array of longword;n:longword;var b:array of longword;var d:longword);
var i,j:longword;
begin
d:=0;
fillchar(duyet,sizeof(duyet),true);
while not(eoln(f1)) do
begin
inc(d);
read(f1,b[d]);
end;
readln(f1);
for i:=1 to n do
for j:=1 to d do
if a[i]=b[j] then
duyet[i]:=false;
for i:=1 to n do
if duyet[i]=true then write(f2,a[i],' ');
writeln(f2);
end;
begin
assign(f1,fi);reset(f1);
assign(f2,fo);rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);readln(f1);
make(a,n,a,n);
make(a,n,a,n);
close(f1);close(f2);
end.