sum2 :: Integer -> (Integer, Integer)
sum2 0 = (0,1)
sum2 x = let
          a = if x < 0 then x * (-1) else x
          b = (+) (div a 10) (a `mod` 10)
          c = if a < 10 then a else 2
        in (b, c)

main :: IO ()
main = print $ sum2 (-39)