\end{xcode}
\begin{xcode}
showsMatrix :: RealFloat a => Int -> Matrix a -> ShowS
showsMatrix n x z1 = let x' = padMatrix n x
((l,l'),(u,u')) = bounds x' in
\end{xcode}
\begin{xcode}
showsMatrix :: RealFloat a => Int -> Matrix a -> ShowS
showsMatrix n x z1 = let x' = padMatrix n x
((l,l'),(u,u')) = bounds x' in