path: root/Math/Combinatorics/test.hs

data Matrix a = M [[a]]

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