neighbors :: [Point]
neighbors = [ V2 x y | x <- [-1 .. 1], y <- bool [-1, 1] [-1 .. 1] (x /= 0) ]
neighbors :: [Point]
neighbors = [ V2 x y | x <- [-1 .. 1], y <- bool [-1, 1] [-1 .. 1] (x /= 0) ]
neighbors = [ V2 x y | x <- [-1 .. 1], y <- bool [-1, 1] [-1 .. 1] (x /= 0) ]