($n,$k,$q)=glob<>; $n{R}=$n{C}=$n; for(reverse<>){ ($a,$b,$c)=glob<>; if(!$h{$a,$b}++){ $o[$c]+=$n{R^C^$a}; --$n{$a}; } } $o[1]+=$n{R}*$n{C}; for(1..$k){ print$o[$_]+0,$/; }