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