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