pandigital n | digits = [0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9]
             | perms = permutations digits
             | fils = filter ((/=0) . head) perms
             | numberFromDigits = foldl addDigit 0 where addDigit num d = 10*num + d
             | nums = map numberFromDigits fils
             | divs = filter (\x -> x `mod` n == 0) nums
             | divs