-- Erstellen einer Liste von Teilprodukten
sums     :: ArbInt -> ArbInt -> [ArbInt]
sums x y = map (mult1 x) (digits y)

-- Einen ArbInt mit einer Ziffer multiplizieren
mult1     :: ArbInt -> Digit -> ArbInt
mult1 x d = norm (map (*d) (digits x))