data Matrix a = M [[a]]

instance Show a => Show (Matrix a)
  where show (M xs) = show $ break (==[]) xs