import Data.List(permutations)
import Data.List(sort)

result = head $ drop 999999 perms
    where perms = sort . map toNum . permutations
                  $ [0..9]
          toNum = foldl1 (\acc x -> acc * 10 + x)