main :: IO ()
main = do
  print $ toDigits 1234
  print $ toDigitsRev 1234
  print $ toDigits 0
  print $ toDigits (-17)
main :: IO ()
main = do
  print $ toDigits 1234
  print $ toDigitsRev 1234
  print $ toDigits 0
  print $ toDigits (-17)
main = do
  print $ toDigits 1234
  print $ toDigitsRev 1234
  print $ toDigits 0
  print $ toDigits (-17)