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