<>;
for(<>){
	/ /;
	$x=$`/10;
	$y=$'/10;
	for$y($y..$y+2){
		for$x($x..$x+2){
			for(@{$_[$y][$x]}){
				if((@$_[0]-$`)**2+(@$_[1]-$')**2<400){
					goto a
				}
			}
		}
	}
	push@{$_[$y+1][$x+1]},[$`,$'];
	++$z;
	a:
}
print$z