-- Eine Ziffernliste unter Anhängen eines anderen Strings in einen neuen String konvertieren, 1. Element ohne Alignment
showDigits        :: [Digit] -> String -> String
showDigits (d:ds) = showString (show d) . showString (concat (map showDigit ds))

-- Eine einzelne Ziffer in einen String der Länge der Basis konvertieren, mit Nullen nach links auffüllen
showDigit   :: Digit -> String
showDigit d = zeros ++ ds
              where zeros = replicate (baseSize - length ds) '0'
                    ds    = show d