let find_a_dup ?(compare=Pervasives.compare) l =     let sorted = sort ~cmp:compare l in     let rec loop l = match l with       [] | [_] -> None     | hd1 :: hd2 :: tl ->       if compare hd1 hd2 = 0 then Some (hd1) else loop (hd2 :: tl)     in     loop sorted