module Matrix where

-- import Data.List

-- newtype Matrix a = Matrix { getMatrix :: [MatrixRow a] }
-- type MatrixRow a = [a]

-- instance Show a => Show (Matrix a) where
--     show (Matrix m) = intercalate "\n" (map showLine m)
--         where showLine l = "[ " ++ intercalate " , " (map show l) ++ " ]"