let rec dedoublonne = function
  | a::(b::_ as l) -> if a = b then dedoublonne l else a :: dedoublonne l
  | a::[] -> [a]
  | [] -> []