uniq : 'a list -> 'a list
# uniq [1;2;3;1;2;3];; val it : int list = [1; 2; 3; 1; 2; 3] # uniq [1;1;1;2;3;3;3;3;4];; val it : int list = [1; 2; 3; 4]