f.hs

import qualified Data.Set as S

myNub :: Ord a => [a] -> [a]
myNub = go S.empty
  where
    go seen [] = []
    go seen (x:xs) | x `S.member` seen 
                   = go seen xs
                   | otherwise
                   = x : go (S.insert x seen) xs