let neighbour_coords' (x,y) =
       [          x,(y-1)
       ; (x-1),y;          (x+1),y;
                  x,(y+1);          ]