getVert :: Int -> Int -> [[a]] -> [a]
getVert row col xss = [a, b, c, d]
  where
    [a, b, c, d] = [getItem (row + i) col xss | i <- [0..3]]
getVert :: Int -> Int -> [[a]] -> [a]
getVert row col xss = [a, b, c, d]
  where
    [a, b, c, d] = [getItem (row + i) col xss | i <- [0..3]]
getVert row col xss = [a, b, c, d]
  where
    [a, b, c, d] = [getItem (row + i) col xss | i <- [0..3]]