sum'n'count :: Integer -> (Integer, Integer)
sum'n'count x | x == 0 = (0, 1)
              | otherwise = helper x
     where helper t | t == 0 = (0, 0)
                    | otherwise = let rec_res = helper (quot t 10)
                    in ((fst rec_res) + abs (rem t 10), (snd rec_res) + 1)
sum'n'count :: Integer -> (Integer, Integer)
sum'n'count x | x == 0 = (0, 1)
              | otherwise = helper x
     where helper t | t == 0 = (0, 0)
                    | otherwise = let rec_res = helper (quot t 10)
                    in ((fst rec_res) + abs (rem t 10), (snd rec_res) + 1)
sum'n'count x | x == 0 = (0, 1)
              | otherwise = helper x
     where helper t | t == 0 = (0, 0)
                    | otherwise = let rec_res = helper (quot t 10)
                    in ((fst rec_res) + abs (rem t 10), (snd rec_res) + 1)