repaCoordsToTuple :: R.DIM2 -> (Int, Int)
repaCoordsToTuple (Z :. x :. y) = (x, y)
repaCoordsToTuple :: R.DIM2 -> (Int, Int)
repaCoordsToTuple (Z :. x :. y) = (x, y)
repaCoordsToTuple (Z :. x :. y) = (x, y)