-- Konvertieren einer dreistelligen Zahl in einen String
convert3 :: Int -> String
convert3 = combine3 . digits3

-- Aufteilen einer Zahl in den /100 teilbaren Anteil und Rest 
digits3 :: Int -> (Int,Int)
digits3 n = (n `div` 100,n `mod` 100)

-- Fallabhängig in die String-Listen indizieren
combine3 :: (Int,Int) -> String
combine3 (0,t+1)   = convert2 (t+1)
combine3 (h+1,0)   = units!!h ++ "hundert"
combine3 (h+1,t+1) = units!!h ++ "hundert und " ++ convert2 (t+1)