gridFrom :: Int -> Int -> [Ownership] -> Grid Ownership
gridFrom w h = fromListUnboxed (ix2 w h)
gridFrom :: Int -> Int -> [Ownership] -> Grid Ownership
gridFrom w h = fromListUnboxed (ix2 w h)
gridFrom w h = fromListUnboxed (ix2 w h)