wrap negative numbers in parentheses for Haskell