$n=<>-1;
@m=0..<>-1;
@1=map[glob],<>;

sub f{
	my($a,$b,$c)=@_;
	$a<2|$u{$a}++&&return;
	f($b=$a>>1);
	f($c=$a-$b);
	for$y(@m){
		for$x(@m){
			for$z(@m){
				$$a[$x][$y]+=$-=$$b[$x][$z]+$$c[$z][$y]-$$a[$x][$y];
			}
		}
	}
}

f($n);
for$y(@m){
	for$x(@m){
		$%+=$-=$$n[$x][$y]-$%;
	}
}
print$%