<>; for(<>){ / /; $x=$`/15; $y=$'/15; if(!grep{(@{$a=$_[$y+$_/5][$x+$_%5]//[-20]}[0]-$`)**2+(@$a[1]-$')**2<400}0..24){ $_[$y+2][$x+2]=[$`,$']; ++$z } } print$z