showError (TypeMismatch message values) = "((make-error :type-mismatch) " ++ show message++ " [" ++ initSafe (concatMap (\l -> show l ++ " ") values) ++ "])"
showError (TypeMismatch message values) = "((make-error :type-mismatch) " ++ show message++ " [" ++ initSafe (concatMap (\l -> show l ++ " ") values) ++ "])"
showError (TypeMismatch message values) = "((make-error :type-mismatch) " ++ show message++ " [" ++ initSafe (concatMap (\l -> show l ++ " ") values) ++ "])"