($n,$m)=glob<>;
for$s(<>){
	$j++;
	@a=glob$s;
	for$i(0..$m-1){
		if($MR[$i]<$a[$i]){
			$MR[$i]=$a[$i];
			$ans-=!--$cnt[pop@{$A[$i]}]while@{$A[$i]};
		}
		push(@{$A[$i]},$j),$ans+=!$cnt[$j]++if$MR[$i]==$a[$i];
	}
	print$ans,$/
}