($n,$m)=glob<>;
for(1..$m){
	($g,$r)=glob<>;
	$h[$g]=[glob<>];
}
for(1..500){
	hoge:
	for$g(1..$n){
		for(@{$h[$g]}){
			if(!$u[$_]){
				next hoge;
			}
		}
		$u[$g]=1;
	}
}
print 0+grep$_,@u;