-- Rekursive Carry-Funktion
addCarry :: (Carry,[Digit]) -> [Digit]
addCarry (c, xs) = if(-1 <= c) ^ (c < base) then c : xs
                   else addCarry (c div base, c mod base : xs)