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