sub f{my$i=pop;$p[$i]=$p[$i]&&$i-$p[$i]?f($p[$i]):$i} ($N,$M,$Q)=glob<>; map@$_=$_,1..$N; @AB=map~~<>,1..$M; ++$h{$_}for@CD=<>; $-=@AB=grep!$h{$_},@AB; for(@AB,reverse@CD){ / /; $x=f$`; $y=f$'+0; if($x==f(1)&&$y!=f(1)){ $o[$_]=$-?-1:$Q for@$y }elsif($x!=f(1)&&$y==f(1)){ $o[$_]=$-?-1:$Q for@$x } if($x!=$y){ if(@$x<@$y){ $p[$x]=$y; push@$y,@$x }else{ $p[$y]=$x; push@$x,@$y } } $---||--$Q } print$_+0,$/for@o[2..$N]