matrixCol :: Integer -> Matrix -> (Integer, Integer)
matrixCol n m
    | n == 0 = ((fst . fst) m, (fst . snd) m)
    | n == 1 = ((snd . fst) m, (snd . snd) m)
    | otherwise = error $ show n ++ " out of col num"
matrixCol :: Integer -> Matrix -> (Integer, Integer)
matrixCol n m
    | n == 0 = ((fst . fst) m, (fst . snd) m)
    | n == 1 = ((snd . fst) m, (snd . snd) m)
    | otherwise = error $ show n ++ " out of col num"
matrixCol n m
    | n == 0 = ((fst . fst) m, (fst . snd) m)
    | n == 1 = ((snd . fst) m, (snd . snd) m)
    | otherwise = error $ show n ++ " out of col num"