[Haskell-cafe] function unique