($x,$y)=glob for<>;print$_.$".<"\n">for 4,$x-1,$y,$x+1,$y,$x,$y-1,$x,$y+1