extractVariables :: Expr -> [Char]
  extractVariables (Mult  a b) = extractVariables a ++ extractVariables b
extractVariables :: Expr -> [Char]
extractVariables (Mult  a b) = extractVariables a ++ extractVariables b
extractVariables (Mult  a b) = extractVariables a ++ extractVariables b