($n,$k,$x)=glob<>;
$a[$_]=<> for 1..$k;
@c=(0,glob<>);
@d=(0..$n);
for(1..$x-1){
	$a[$_]=~$";
	@d[$`,$']=@d[$',$`];
}
for(reverse$x+1..$k){
	$a[$_]=~$";
	@c[$`,$']=@c[$',$`];
}
print"@{[grep$c[$_]-$d[$_],1..$n]}";