($n,$m)=glob<>;map{($a,$b,$c)=glob<>;push@{$c.-$a},$b,push@{$c.-$b},$a,0}1..$m;@a=1..$n;<>=~s/\d+/@a=sort{$a-$b}keys{map@{$&.-$_},@a}/ger;print@a."
@a"