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