main :: IO ()
main = do
    putStr $ map intToDigit list
      where list = (sort . permutations $ [0..9]) !! 999999
main :: IO ()
main = do
    putStr $ map intToDigit list
      where list = (sort . permutations $ [0..9]) !! 999999
main = do
    putStr $ map intToDigit list
      where list = (sort . permutations $ [0..9]) !! 999999