-- Konvertieren einer zweistelligen Zahl in einen String
convert2 :: Int -> String
convert2 = combine2 . digits2

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

-- Fallabhängig in die String-Listen indizieren
combine2 :: (Int,Int) -> String
combine2 (0,1)     = "Eins"
combine2 (0,u+1)   = units!!u
combine2 (1,u)     = teens!!u
combine2 (t+2,0)   = tens!!t
combine2 (t+2,u+1) = units!!u ++ "und" ++ tens!!t