toDigitsRev :: Integer -> [Integer]
toDigitsRev n
  | n > 0 = (n `mod` 10) : toDigitsRev (n `div` 10)
  | otherwise = []
toDigitsRev :: Integer -> [Integer]
toDigitsRev n
  | n > 0 = (n `mod` 10) : toDigitsRev (n `div` 10)
  | otherwise = []
toDigitsRev n
  | n > 0 = (n `mod` 10) : toDigitsRev (n `div` 10)
  | otherwise = []