Added a little more to matrix.hs