convert 6 -- Konvertieren einer sechsstelligen Zahl

-- Aufteilen in den /1000 teilbaren Anteil und Rest 
digits6 :: Int -> (Int,Int)
digits6 n = (n `div` 1000,n `mod` 1000)

-- Fallabhängig in die String-Listen indizieren 
combine6 :: (Int,Int) -> String
combine6 (0,h+1)   = convert3 (h+1)
combine6 (m+1,0)   = convert3 (m+1) ++ "tausend"
combine6 (m+1,h+1) = convert3 (m+1) ++ "tausend" ++ link (h+1) ++ convert3 (h+1)

link :: Int -> String
link h = if h < 100 then " und " else " "