-- Zwei Ziffernlisten auf gleiche Länge erweitern
align :: ([Digit],[Digit]) -> ([Digit],[Digit])
align (xs,ys)
 | n >  0 = (replicate n 0 ++ xs, ys)
 | n <= 0 = (xs, replicate (-n) 0 ++ ys)
  where n = length ys - length xs