let
rec
uniq =
function
|
[]
->
[]
|
x::r
->
if
(
List
.mem x r)
then
(uniq r)
else
x::(uniq r)