fromCoords :: Generation -> (Int, Int) -> Int
fromCoords (Generation w _ _ _ _) (!x, !y) = x + (y * w)
fromCoords :: Generation -> (Int, Int) -> Int
fromCoords (Generation w _ _ _ _) (!x, !y) = x + (y * w)
fromCoords (Generation w _ _ _ _) (!x, !y) = x + (y * w)