let remove_consecutive_duplicates list ~equal =     let rec loop list accum = match list with     | [] -> accum     | hd :: [] -> hd :: accum     | hd1 :: hd2 :: tl ->       if equal hd1 hd2       then loop (hd2 :: tl) accum       else loop (hd2 :: tl) (hd1 :: accum)     in     rev (loop list [])