filt :: [Char] -> [Char]
filt ""     = []
filt (x:xs) = x : (filt $ filter (/= x) xs)

filt s = foldl (\acc x -> acc ++ (if x `elem` acc then "" else [x])) "" s