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