showMonomial :: Monomial -> String
showMonomial (Monomial c v) = coefficient `beside` variables where
    variables | v == [] = ""
              | otherwise = "*" ++ intercalate "*" v
    coefficient = unlines (tail (lines . show $ c)) -- drop rol/col information of matrix
showMonomial :: Monomial -> String
showMonomial (Monomial c v) = coefficient `beside` variables where
    variables | v == [] = ""
              | otherwise = "*" ++ intercalate "*" v
    coefficient = unlines (tail (lines . show $ c)) -- drop rol/col information of matrix
showMonomial (Monomial c v) = coefficient `beside` variables where
    variables | v == [] = ""
              | otherwise = "*" ++ intercalate "*" v
    coefficient = unlines (tail (lines . show $ c)) -- drop rol/col information of matrix