-- Installieren des ArbInt-Typen für Addition, Subtraktion und Negation
instance Num ArbInt where
 x + y = norm (zippWith (+) (align (digits x,digits y)))
 x - y = norm (zippWith (-) (align (digits x,digits y)))
 negate x = norm . map neg . digits
            where neg x = -x