($n,$k,$x)=glob<>;@s=0..$n;
<>=~/ /,($s[$`],$s[$'])=($s[$'],$s[$`])for 2..$x;<>;
unshift@b,$_=<>for$x..$k-1;@t=glob<>;unshift@t,0;
/ /,($t[$`],$t[$'])=($t[$'],$t[$`])for@b;
print"@{[grep$s[$_]-$t[$_],1..$n]}"